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Tar/eras EPROM para Amstrad. 

Logo 

Todos los qua renames un Amstrad con 
disco, renames tambin un /engua/e Logo de 
Digital Research. Ya es hera de aprender a 
mane/ado y, sabre lode, comprender par qu 
hay qua hacerlo. 

Primeros 
poses 
En este art/cu/o se resume, mediante una 
aplicaci6n pr6ctica, rode/o qua homes 
aprendido, y ms, acerca de los grSficos de/ 
Amstrad. 

AnEdisis . , 

Mr. Joyst, 
Ocean nos vione con una nueva y 
apasionante aventura de to familia de Wally, 
esta vez en /as lujurianfes y oscuras 
profundidades de/a selva tropical. 

Banco de 
pruebas 

Ana//zamos exhausfivamente /as amp//octanes 
de memoria de DK'Tronics para los Amstrad 
de/a serie CPC. 

Para... PCW 

Os ofrecemos un complete programa de 
control de stocks para el PCW escrito 
comp/etamente en Mallard Basic. El 825 puede 
hater muchas m6s cosas aparte de procesor 
fexfos, precisamente asL.. 
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I) No estamos para uegos. 
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DE ARATA 
PARA 

H3ce no mucho 
tiempo, una noticia en el mundo de 
los ordenadores MSX levant6 un 
gran revuelo: se empezaba a comer- 
cializar software en tarjetas EPROM, 
que se conectaban al bus de expan- 
si6n del ordenador. 
La idea es francamente buena; 
pensemos, par ejemplo, en los inter- 
minables tiempos de cargo de los 
juegos en cassette. Con los tarjetas, 
podemos empezar a jugar instant6- 
neamente. Basra tan s61o con conec- 
tar el ordenador. 
Pues bien, esas tarjetas EPROM 
muy pronto estar6n disponibles pa- 
ra Amstrad, con unas capacidades 
de memoria que oscilan entre 16 
Kbytes de programa, juegos o apli- 
cacones, que se cargar6n instant6- 
neamente en el Amstrad nada m6s 
encenderlo. 
Las 5 compaBias de software m6s 
importantes de Inglaterra han firma- 
do un acuerdo para que sus produc- 
tos aparezcan en este formato. 
En Espaa, Serma ser6 la encarga- 
da de distribuir este nuevo software, 
que estar6 en la calle en abril, a un 
precio, al menos los juegos, que os- 
cilar6 entre 4.000 y 5.000 pesetas. 
Obviamente, estos <<perifricos)> 
ser6n compatibles con el CPC464, 
664 y 6128. 
Un detalle m6s para los <<hackers>): 
uno mismo puede programarse las 
tarjetas si dispone de un grabador de 
EPROM. 
Serma est6 en: CWBravo Murillo, 
377, tercero A. Tel. (91) 733 73 11. 
Madrid. 

IIIIINIOFFICE II 

Database Publications, adem6s de 
editar excelentes revistas coma 
<<Computing with the Amstrad>b tam- 
bi6n hace incursiones en el campo 
del software. 
Concretamente, acaba de ser lan- 
zado en Inglaterra un paquete de 
software, que podriamos Ilamar in- 
tegrado con alga de optimismo, Ila- 
mado <<Minioffice Ib>. 
Esta serie de programas vienen a 
mejorar al <Miioffice b, que tal vez 
pas6 alga desapercibido, al menos 
en Espaa. 
Minioffice II consta de 6 progra- 
mas, compatibles con toda la serie 
CPC: 
-- Procesador de textos: puede 
trabajar con 20, 40 y 80 columnas; 
posee las facultades t/picas de estos 
programas, e incluye adem6s, la po- 
sibilidad de mailmerge. 
-- Base de dalos. 
-- Hoja de cclculo. 
-- Paquete de gr6ficos. 
-- Paquete de comunicaciones. 
-- Mailing. 
Minioffice se vende en Inglaterra 
a 20 libras, unas 4.000 ptas. aproxi- 
madamente, y, segOn nuestro corres- 
ponsal en Londres, el paquete mere- 
ce la pena. Es buena. 
A prop6sito, tambi6n est6 disponi- 
ble en disco, no s61o en cinta. 

NOVEDADE$ 
DEABC 

ABC. Analog ha 
relanzado un juego para Amstrad, 
titulado Chopper Squord; la historia 
se desarrolla en el ao 1994, y plan- 
tea la situaci6n de un indefenso pla- 
neta atribulado par las hordas impla- 
cables de feroces alienigenas, alas 
que tO, s61o tO, puedes devolver al 
Cosmos de una patada en salva sea 
la porte. 
ABe est6 en: 
Santa Cruz de Marcenado, 31. Tel. 
248 82 13. 

NUESTRA ClNTA 
YA ESTA LISTA 

La cinta nOmero 
6 de Amstrad Semtl, conteniendo 
los programas de los nOmeros 17 al 
20, est6 disponible para ser enviada 
a los lectores que nos la soliciten. 
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APRENDER A PENSAR... JUGANDO 

Logo es una palabra m6gica en el mundo de Io inform6tica, y responde alas slglas de 
un lenguaje de programaci6n muy especial, ¢reado ex profeso para educar la mente de 
las personas, en el sentido de I6gica, capacidad de abstraci6n y creatividad. 
Pero Logo, adem6s de set algo ideal para el aprendizaje de un nifio asistido pot 

orden..ador, es tambi#n un lenguaje de programaci6n de arm.as tomar, potente y muy 
sencllo de usar. Por favor, recue'rdese siempre esto: cualquer cosa que usted pueda 

hater en Basic, puede hacerlo en Logo, y, segundo, tiene ya el lenguaje al comprar un 
Amstrat con disco. Vamos, pues, a sacarle alg6n partido. 
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I cercarse 
al Logo por 
primera vez, puede resltar ms que sorpren- 
dente. Quiz6s, para el Basic-parlante e inclu- 
so para los acostumbrados a tratar con len- 
guas m6s cultas como el Pascal o el Fortran, 
los contactos iniciales puedan resultar casi an- 
gustiosos./,Pero, d6nde est6 el progra- 
ma?, es siempre la primera pregunta. 
Para el ne6fito, sin embargo, la cosa se plan- 
tea muy distinta, y r6pidamente comprende de 
qu se trata y c6mo se programa en Logo. En 
ocasiones, me he arrimado a un nio que sen- 
tado delante de un ordenador se afanaba en 
realizar s..u programa, y cranme que he sen- 
tido verguenza. En su mente las ideas debian 
de aparecer a un ritmo desorbitado, y si no 
tecleaba m6s deprisa, no era por que dudase 
sino por su mala mecanografia. Llega uno a 
arrepentirse de esta cabeza cuadriculada que 
nos hemos creado a fuerza de <gotos, ru- 
ness y n0meros de linea. 
En Logo, el programa, si es que puede em- 
plearse este trmino, se nos aparece claro, 
conciso y fluido. Procedimiento a procedimien- 
to, nuestro ordenador va aprendiendo hasta 
que finalmente podemos decirle, por ejemplo, 
JUGAR. El ya sabe que jugar significa BARA- 
JAR, REPARTIR, JUGAR BAZA. 
Naturalmente, antes habremos tenido que 
detallarle, de forma particular, cada una de 
estas palabras, asi, JUGAR BAZA podria ser 
perfectamente ELEGII CARTA, TIRA EL 1, TI- 
RA EL 2, EVALUAR, PUNTUAR, ROBAR, JU- 
GAR BAZA. Probablemente esto le parezca 
extrafio, como puede ser que en la definici6n 
de Io que es JUGAR BAZA aparezcan estas 
mismas palabras. Esto se conoce como recur- 
sividad, quiz6s por el momento no entienda 
esto, pero no se preocupe todo se andar6. 

UN POCO DE HISTORIA 

El Logo surge en 1976 de la mano de un gru- 
po de profesionales de la inform6tica y la pe- 
dagogia. Walle Feurreig, Dany Bribons y Sey- 
mour Paper son quizs los nombres m6s sig- 
nificativos asociados a esta historia. Paper ha- 
bia comenzado ha desarrollar este lenguaje 
en 1967, en el Instituto Tecnol6gico de Masa- 
chusets (MIT). En su realizaci6n inicial se era- 
pie6 un intrprete de Lisp, lenguaie muy utili- 
zado en inteligencia artificial y donde todo se 
reduce al manejo de listas (List Processor). 
El Logo, como hijo pequeo de este lengua- 
je, agn no contando con todas sus bendicio- 
nes, si nos aproxima de forma m6s que eficaz 
al proceso de listas. Gracias a este medio se 
est6n consiguiendo, en nuestros dias grandes 
progresos en el tratamiento de la informaci6n, 

como puede ser en las Bases de Datos. A par- 
te de esto, tanto el Lisp como el Logo consti- 
tuyen esplndidas herramientas para el desa- 
rrollo de programas en los que se pretenda 
simular conversaci6n humana. Es ya un clsi- 
co, en este aspecto, el programa Eliza desa- 
rrollado en Lisp y perfectamente transporta- 
ble al Logo. La vocaci6n de Eliza es el sicoa- 
nlisis. 
Sin embargo, el procesamiento de listas ob- 
jetivo b6sico de Logo no es algo que pueda 
Ilear a comprenderse desde el principio. Fi- 
nalmente, la soluci6n se encontraria en la Tor- 
tuga, pequefio robot formado por una cam- 
pana que podia moverse en todas direcciones 
y que era capaz de marcar un trazo a medi- 
da que avanzaba sobre un papel. Diseada 
por Grey Walter, las palabras Logo y Tortu- 
ga se convertirian en inseparables. Natural- 
mente se implementaron las 6rdenes necesa- 
rias para poder manejar a placer la tortuga. 
Con el tiempo la tortuga acabaria encerrada 
en la pantalla de los monitores siendo repre- 
sentada por un simple tri6ngulito. 

ENSEIIANZA Y LOGO 
Tras la beatificaci6n det Logo por porte off- 
cial, en su proyecto Atenea, el campo del pri- 
mer y segundo ciclo de EGB se encuentra al- 
go revuelto. Pedagogos y profesores se en- 
cuentran desorientados tras esta vor6gine in- 
form6tica. Para tranquilizar los nervios no es- 
tafia de m6s dar algunas puntualizaciones: 
1. El lenguaje Logo no se va a introducir 
como medio de aprender informtica, sino co- 
mo alternativa v61ida al desarrollo del apren- 
dizaje en el nio. Los cubos rojos que debian 
apilarse sobre cubos verdes, van a ser susti- 
tuidos por un tedado, un monitor y un disco. 
Asi mediante la resoluci6n de distintos proble- 
masse le permite al nio, extraer modelos de 
razonamiento que m6s tarde aplicar en su vi- 
da cotidiana. 
2. El ordenador tambin va a utilizarse co- 
mo apoyo en materias concretas. El nio va 
a poder estudiar geografia, historia o mate° 
m6ticas tutelado por el orden. Para utilizar es- 
tos programas no son necesarios conocimien- 
tos de Logo. 
3. No se pretende que el nio se convier- 
ta en un experto en Logo, aunque naturalmen- 
te el peso de su enseanza debiera recaer en 
una mezda de pedagogo y profesional de la 
informtica. 

CA RA CTER ISTICA$ 
FUNDAMENTALE$ 
El lenguaje Logo es un intrprete, estamos 
de acuerdo en que esto supone un h6ndicap 
a la hora de Iograr la velocidad de los lengua- 
jes compilados, sin embargo, tambin es cierto 
que es mucho m6s simple el uso de un intr- 
prete. La detecci6n de errores y su correcci6n 
es pr6cticamente inmediata. 
Su estructuraci6n es total. Constituido a base 
de procedimientos (procedural), su lectura se 
hace clara y comprensible. Naturalmente los 
procedimientos pueden ir acompaados de los 
par6metros correspondientes. De este modo 
un procedimiento no tiene que actuar sobre 
una constante sino que puede ser perfectamen- 
te una o distintas variables. Olvidese del te- 
dioso Gosub del Basic y conozca esta forma 
de subrutinas, la estructuraci6n; ahora si po- 
demos asegurar que es real. Algo muy pare- 
cido a la forma en que se emplean las funcio- 
nes definidas por el usuario en Basic, con el 
uso de parmetros. 
La recursividad es otro de los caracteristi- 
cas importantes del Logo, quiz6s en un prin- 
cipio le cueste un poco comprender esto: la 
idea se basa en Ilamar a un procedimiento des- 
de el mismo. Un ejemplo de recursividad que 
siempre suele utilizarse es la definici6n del fac- 
torial de un n0mero. Como ya sabr6 el facto- 
rial de un n0mero Natural n, no es otra cosa 
que: 
n!=n*(n-1)*(n-2)* .... *1 
Definido recurvicamente tendriamos: 
1!=1 
n! =n*(n-1)! si n< > 1 
Intente apreciar la diferencia entre ambas 
definiciones y compare. Observe queen la se- 
gunda definici6n el tErmino factorial, trmino 
que intentamos definir, tambin es utilizado. 

AMSTRAD Y LOGO 

La versi6n de Logo realizada para Am.:- 
trad, ha sido desarrollada por Digital Re- 
search y corre bajo CPM en sus dos versiones 
2.2 y plus. Los poseedores de1664 dispondr6n 
s61o de la primera versi6n pues la versi6n :3.0 
necesita 128 k. 
Para cargar DR. Logo, nombre con el que 
se ha bautizado al programa, los usuarios del 
664 s61o tendr6n que insertar la cara dos del 
disco maestro o de una copia y teclear ICPM. 
Los usuarios de16128 deber6n, forzosamen- 
te, sacar una copia del disco maestro n0mero 
dos, insertarlo en la unidad de disco por la ca- 
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ra uno o dos, en funci6n de que se desee tra- 
bajar con el Dr. Logo plus o con el 2.0 res- 
pectivamente, y tedear ICPM. Una vez que he- 
mos entrado en el CPM habremos de teclear: 
SUBMIT LOGO2 
o bien: 
SUBMIT LOGO3 
La versi6n plus es idntica a la dos, salvo 
que en ella se han incluido un cierto ngmero 
de instrucciones, sobre todo en Io que concier- 
ne a la gesti6n de perifricos, impresora y dis- 
co. Un nuevo detalle que es de agradecer, es 
la inclusi6n de una instrucci6n que permite gra- 
bar la pantalla, gracias a Io cual podremos al- 
macenar y conservar esas maravillosas y sen- 
cillas pantallas que realizaremos con nuestra 
tortuga. 
Ambas implementaciones del Logo son bas- 
tante completas, el editor es agradable de uti- 
lizar y junto a todas las instrucciones que per- 
miten mover la tortuga, pintar y demos, en- 
contraremos todas las instrucciones necesarias 
para el manejo de listas con bastantes como- 
didad. 

EL EDITOR 

El editor del Logo es muy parecido al que 
se suministra con el Basic. Siempre podremos 
movernos con las teclas del cursor por la linea 
que estemos editando. Pero, gA qu espera- 
mos?, escribamos nuestro primer procedimien- 
to. 
Lo primero que haremos ser6 comunicar al 
ordenador que vamos a realizar un procedi- 
miento, la forma que tenemos de realizar es- 
to es comenzando pot TO, continuando por 
el nombre del procedimiento. 
TO ESE 
recuerde tedear ENTER al final de cada linea. 
RT 90 
Esta instrucci0n le informa a la tortuga de 
que debe girar 90 grados:. 
FD 75 
avanza 75 
LT 90 
gira 90 a Io izquierda 
FD 75 
avanza 100 
RT 90 
FD 75 
RT 90 
FD 75 
END 

Esta gltima palabra le informa al ordenador 
de que el procedimiento ya se ha acabado. 
Ahora teclee: 
CS 
AI pulsar ENTER la pantalla quedar6 en 
blanco y dividida en dos ventanas. Una para 
r6ficos, la superior y otra para texto, la in- 
rior. 
Ahora el momento de la verdad, teclee: 
ESE 
Si no hay error el resultado Io tendr0 en la 
pontalla. 
En caso de que haya habido error y aun- 
que no Io haya habido escriba: 
ED ESE> 
Ahora tendr0 en pantalla el procedimienfo 
para poder modificarlo a placer. Con las te- 
clas del cursor para moverse por toda su ex- 
tensi6n o borrando con las teclas CLR y DEL, 
de forma similar a como Io hace en Basic. y 
entre FD 100 y END, cree una nueva linea: 
RT 21 
ESE 
La idea es hacer el primer procedimiento re- 
cursivo, pulse la tecla COPY para dar por ter- 
minada la edici6n y teclee: 
CS 
ESE 
El programa ahora no se detendr6. Cuan- 
do se haya cansado pulse la tecla ESC para 
deterner la ejecuci6n. 

PROCEDIMIENTOS QUE 
LLAMAN A 
PROCEDIMIENTOS 

Nuestro CPC en estos momentos, conoce Io 
que tiene que hacer cada vez que le digamos 
ESE. Suprima la 01tima correcci6n que hemos 
hecho al programa, es decir, suprima la an- 
tepen01tima y pen01tima linea. Ya sabe, edite 
con: 
ED "ESE 
Corrija, y para finalizar pulse COPY. 
Creemos un nuevo procedimiento: 
TO TRESESES: 
ESE 
ESE 
ESE 
, END 
Acabamos de crear un nuevo procedimien- 
to en el que utilizamos uno anterior que nues- 
tro ordenador ya conocia. 

NO TODO ES UNA 
TOR TUGA 

De todos modos emplear el LOGO y que- 
darse en la TORTUGA seria algo m6s que ab- 
surdo. Poco a poco intentaremos Ilegar al pro- 
ceso de listas, utilizaremos los discos y la im- 
presora, en resumen intentaremos conocer a 

rondo este maravilloso lenguaje. Peropor aho- 
ra ya es suficiente, seguidamente le ofrecemos 
unos cuantos programas que le permitir0n pro- 
gramar utilizando las 6rdenes que hoy hemos 
visto. 
TO MASLOGO 
ESPERAR ANALOGO 
END. 

to ombo 
r t 30 
fd 40 
rt 120 
 d 40 
t bO 
fd 40 
rt 120 
d 40 
end 
to 
rombo 
, ombo 
rombo 
rombo 
rombo 
nd 
to vidrierm 
I fd qU 
fd 4U 
d 0 
roet or3 
robo 
ovf dr  er 
f 0 
r t 90 
fd 50 
 t 90 
f d 5 
 t 90 
fd 50 
end 
to 
rt 30 
fd 35 
rt 60 

fd 
rt 
fd 
pnd 
t tapa 
fd 5u 
I t I 
fd 
It 3u 
fd 
end 
to c- 
f ch d 
tgpa 
nd 
to Imps; bl- 
cja 
nd 
m hJ 
to lmpo zbl 
EJ - 
nd 
91 ml]u l b]  
to msimpr it, l 
fs 
mpg hl • 
rt 90 
r t 9o 
 mp b  - 
rt 0 
mpmible 
nd 
9m : 

8 ,UCOHOr A$1'RAO 



AMSTRAD 

' "! 

NONTERRA Q UEO US " 
En un remoto planeta. Un Rolot Buscador 
se husca'/a vida buscando a tray, s de 1000 
pantallas distintas.  Tu misin ? 
iest claro!, buscar la base del 
maligno Competador que nos 
est buscando a todos la ruina. 

LOCOMOTION 
La carera mas dificil de Europa,. 
en la que 10 pages europeos 
intentan con pieda, troncos 
y coches, herte imposible/a 
#egada. SUERTE iLa necesitars! 

750 

En una fria noe de Luna /lena 
inten.taras salvar a tu chica 
ep#entAndete a cadAvees 
viviente aaas, espectros 
y mciNagos, 
iAmTno y recoge todas las 
cuces que puedasl 

DRO SOFT 

FORMULA 1 
• eiueo de competic'n de 
mayor realismo, con 
lO c#uitos mas famosos 
SIL VERSTON.E,. MO. NACO, 
MONZA,.. etc. 
i 3, 2, 1... Adelante! 

ULA 

 " CTRUM 

• . STRAD 
| 

SPECTRUM 
AM RAD 
  ". " it MSX 
,." ). ,  
,, 

FINDERS "EEPERS 
| 
Demuestra qu eres un cabem 
ofreciendo q t dama regalos extlcos y 
duamente co  eg' . 
ero 1. o, es posible que preeras 
queda como un cerdo pero hacorte rico 
escapAndote con la pasta. 

Licencia exdusiva par; ESPA#A DRO SO 
Fundadore 3 "; 8- ..v, LRID 
Tels, 255 45 00/09 

ENCUENTRALO f_.. . 
EN LA DIVISION 
n-,,.;... e ,GALERIAS 



N RATON CASERO 

Ya sabemos c6mo usar al I00 por 100 los gr6ficos del 
Amstrad. (onocemos perfectamente c6mo crear dibujos 
absolutos y relativos, lineas rectos y curvas y rellenar 
superficies. Ahora bien, c6mo aplicar esto a algo til?  
AMSTRAD Semanal ha intentado presentar una alternativa,  
entre los muchas que existen, con los programas de este  
articulo de Primeros Pasos. Os suena el concepto de rat6n, - 
iconos y ventanas?  

emos recorrido 
ya un largo carnino viendo todas las posibili- 
dades gr6ficas de nuestro Amstrad. Siguien- 
do en esta linea vamos a intentar unir varias 
figuras y forrnas para cornponer un conjunto 
multicolor que quiz6 sea propuesto, qui6n sa- 
be, de inter6s artistico general, iManos a la 
obra! 
Vamos a analizar detalladamente Io que 
querernos hacer. 
Ya conocemos alguna de las instrucciones 
necesarias para decirle a su ordenador que 
pot un momento se convierta en artista. Di- 
bujar en la pantalla cualquier forma m6s o me- 
nos geomtrica no debe representar ya nin- 
ggn problema para usted, no es asi? 
Pues nuestra idea ahora es conseguir que 
nos aparezcan una serie de figuras que hemos 
establecido ya previamente, y que Io hogan, 
adem6s, en cualquier punto de la pantalla. Y 
luego, si es posible, daremos color a su inte- 
rior. 

Elecci6n de formas 
griificas 

Bueno, varnos elegir las figuras. Para no liar- 
nos rnucho vamos a seteccionar varias que no 
sean excesivarnente complicadas pero que 
cumplan con la finalidad de esta secci6n que 
es ir cogiendo los conceptos necesarios para 
tener una amplia base inform6tica que nos 
permita afrontar problernas rnucho mcs corn- 
plejos. 
Vamos all6. Qu6 le parecen las siguientes: 
un circulo, un rect6ngulo, un cuadrado, un 
tricngulo, la linea recta y, como antes dijimos, 
tener ademgs la posibildad de rellenar el in- 
terior de la figura que dibujemos, iVaya pen- 
sando en una serie de rutinas que nos tracen 
cada uno de estos dibujos! 

I0 ,icoHoss AMSTRAO 

Podemos hacerlo a base de un men0 tradi- 
cional, sobre el que elegimos Io que querernos 
hacer, y luego nos bastaria con elegir el pun- 
to de la pantalla donde queremos colocar la 
forrno georntrica. 
Pero intentemos ser un poco m6s originales. 
Primeramente harernos aparecer en nuestro 
monitor una representaci6n visual de coda una 
de las cosas que vamos a poder hacer. Es al- 
go parecido a un rnen0 gr6fico. 
En nuestro caso no es suficiente con que nos 
aparezcan unos rect6ngulos conteniendo la 
palabra que indique la acci6n a realizar. Por 
ejemplo, TRIANGULO serc la zona que nos 
referenciar6 el poder dibujar un tri6ngulo 
en un punto de la pantalla. 

, Meh6" de icono's 

Adem6s varnos a intentar conseguir un m- 
todo para que en vez de seleccionar una op- 
ci6n mediante un meng clsico, podamos ha- 
cerlo sirnplemente sefiakndolo en pantalla con 
un cursor, o flecha, y que con esto el ordena- 
dor ya sepa Io que tiene que hacer. 
Todo Io que necesitarnos es rnover este cur- 
sor por la pantalla, mediante los teclas de rno- 
vimiento del cursor, iclaro! y hacer que apun- 
te, o se coloque, encima de una de las opcio- 
nes. Cuando pulsemos la tecla RETURN la rn6- 
quina sabrc si queremos dibujar un rect6ngu- 
Io, trazar una recta o rellenar de color rojo 
un circulo y nos rnandar6 a la rutina encar- 
gada de realizar este trabajo. 
Esto es algo parecido a Io que se conoce por 
el concepto de ICONO, es decir, representar 
una acci6n procesable mediante una represen- 
taci6n gr6fica. 
;.Comenzamos? 
Como nos declaramos partidarios de seguir 
en programaci6n una tcnica rnodular, o sea, 
a base de pequefias subrufinas que hagan co- 
sas muy concretas, manejadas y selecciona- 
das a tray,s de un programa principal, es el 
momento de aplicarlo a nuestro problema. 
;,Cu61 seria el programa que diri- 
ja toda esta orquesta? Qu tendrc 
que hacer. 



Programa tres 

• Veamos. Ha de ser un programa que pri- 
mero has inicialice una serie de variables que 
necesitan tener un cierto valor al comienzo del 
programa. 
A continuaci6n nos dibuiar6 la pantalla que 
nosotros hayamos diseado. De momenta no 
nos importa cu61 va a ser su farina y conteni- 
do. Nos basra con saber que los gr6ficos de 
las opciones van a ocupar la porte de la iz- 
quierda hasta una determinada coordenada 
horizontal. 
Una vez dibujada la pantalla comenzar a 
repetirse continuamente un cido en el que pri- 
mero se mueve el cursor y despus, si ha en- 
trado en la zona de las opciones, compruebe 
si hemos elegido una de elias. 
;.Un poco abrumado por la charla 
anterior? Seguro que analizando el orga- 
nigrama de la figura 1 ver6 todo mucho m6s 
clara. 
Y de ahi a traducirlo a instrucciones Basic 
s61o hay un pequeo paso. O, no es asia. El 
programa uno nos demuestra que esto no es 
tan complicado coma parece a primera vista. 

Programo uno 

Simplemente est compuesto par unas ins- 
trucciones que has fiian el punto d6nde esta- 
r6 colocado el cursor al principio del progra- 
ma -lineas 40 y 50- y el color con el que co- 
menzamos a trazar los gr6ficos -linea 60. 
Despus hay una Ilamada a la subrutina que 
nos dibujar6 la pantalla y que colocaremos a 
partir de la linea 11000. 
En la 80 moveremos el cursor, si Io creemos 
necesario, mediante un salto a la subrutina de 
movimento que empezar6 en la linea 1000. 
$61o has queda analizar si podemos elegir 
una opci6n -Iinea 90- cuando estemos en 
una coordenada horizontal menor que el li- 
mite propuesto para la zona de ((icanos. 
Y volveremos a repetir el ciclo medionte un 
salto a la linea 80. Verdad que no es muy 
complicadoa. 
Nuestro pr6ximo trabaio consiste en ir dan- 
do farina a cada una de las subrutinas que va- 
mos a manejar. Empezamos con la que nos 
dibuja la pantalla? Va a ser muy sencillita. Vea 
el programa dos. 

Programa dos 

Lo primero que hace es recuadrar los limi- 
tes de la pantalla y delimitar la zona donde 
vamos a colocar el men0 gr6fico -lineas 
11000 a 11130. 
Despus se coloca cada uno de los textos 
dentro de su correspondiente zona de ((icono 
mediante el bucle FOR... NEXT de las lineas 
11140 a 11180 que va leyendo los DATAs de 
la linea 11260. 

A continuaci6n rellenamos con los cuatro co- 
lores existentes en el Modo 1 la zona del me- 
n0 destinada a seleccionar el color de los gr6- 
ficos -lineas 11190 a 11240. 
Y ya est6. Eche un vistazo al organigrama 
de la figura 2 y analice mas detenidamente el 
proceso 16gico que hemos seguido para Ilegar 
a codificar el programa dos. 
Si seguimos el diagrama de flujo del progra- 
ma principal, la siguiente acci6n a realizar es 
mover el cursor seg0n las teclas que hayamos 
pulsado. 
La manera de hacerlo es siguiendo el gr6fi- 
co de la figura 3. 
Realizamos el siguiente proceso. 
- Borrar el cursor de la 01tima posici6n 
donde Io hemos dibujado, o iluminarlo con el 
mismo color del fondo de la pantalla. 
- Analizar si hemos pulsado alguna tecla 
e incrementar o decrementar los coordenadas 
del cursor dependiendo de dicho anlisis. 
- Asegurarse de que el cursor no se salga 
de los limites establecidos para el dibuio. 
- Anotar el color del punto situado en las 
nuevas coordenadas calculadas. 
- Iluminar el cursor en su nueva situaci6n. 
- Actualizar las antiguas coordenadas del 
cursor. 
-- Lo Oltimo que nos queda es devoJver con- 
trol al programa principal. 
;,Qu le ha parecido? Si sigue paso a 
paso este organigrama y traduce a instruccio- 
nes Basic cada uno de los apartados, seguro 
que obtendr un programa semeiante al tres. 

Los 6nicas novedades que encontramos es- 
t6n en las lineas 1030 a 1060 yen la linea 
1090. 
INKEY (N) es una funci6n que nos devuel- 
ve el valor 0 sila tecla que se corresponda con 
el nOmero <N ha sido pulsada. Cuando no 
la hayamos presionado nos devolver6 el va- 
lor -1. 
En nuestro caso las teclas asociadas a los ng- 
meros 0, 1, 2, y 8 son precisamente las de mo- 
vimiento del cursor. Observe c6mo se incre- 
menta la coordenada correspondiente cuan- 
do hemos pulsado una de estas teclas -o 
cuando la funci6n INKEY nos devuelve un ce- 
ro. 
La otra instrucci6n desconocida es TEST 
(X,Y). Es una funci6n que nos devuelve el va- 
lor de la tinta con la que hemos iluminado el 
punto situado en los coordenadas graficas x,y. 



Nosotros la utilizomos en esta ocasi6n para 
poder borrar el punto antes de calcular sus 
nuevas coordenadas y asi evitar que el movi- 
miento vaya dejando estela. 
Los dem6s lineas ya son conocidas. En 
nea 1020 devolvemos al cursor el color del 
fondo. Con la 1070 y 1080 evitamos que el 
cursor se salga de la pantalla. 
En la 1100 iluminamos el punto en su nue- 
va posici6n y con los 1110 y 1120 actualiza- 
mos las coordenadas. 
Y con esto terminamos, devolvemos el con- 
trol al programa principal y punto. 
Continuemos. Despus pasamos a analizar 
si estamos en condiciones de seleccionar una 
determinada opci6n. Para ello el cursor debe 
estar en la zona del menO gr6fico, o su coor- 
denada x ser menor que 192 como se obser- 
va en la linea 90 del programa principal. Ve- 
mos la rutina que nos permite hacer la elec- 
ci6n. 
Cuando estemos situados en el lugar ade- 
cuado (men) pulsamos la tecla RETURN pa- 
ra anotar la acci6n que vamos a realizar. 
Una vez hecha la selecci6n moveremos el 
cursor a la zoa de dibujo y alli trazaremos 
la figura elegida. 
;,Qu hemos de hacer para que es- 
to ocurra asi? Siga el proceso de la figura 
4 y Io ver6 claramente. 
Oaremos los siguientes pasos: 
- El cursor se estar6 moviendo hasta que 
pulsemos la tecla RETURN. 
- En ese momento anotaremos la acci6n 
elegida dependiendo de la coordenada ver- 
tical del punto donde est situada y saltar6 el 
programa a la subrutina que la ejecuta. 
Con el programa cuatro comprobaremos 
c6mo tendriamos que codificar todo esto pa- 
ra que funcione tal como queremos. 

Programa cuatro 

Hacemos que el cursor se est moviendo me- 
diante el bucle WHILE... WEND de la linea 
2020 a 2040. INKEY(18) detecta el momento 
en que pulsamos la tecla RETURN. 
Una vez pulsada, y por tanto seleccionada 
la opci6n, saltaremos a la subrutina que co- 
rresponda despus de evaluar las condiciones 
reflejadas en las lineas 2050 a 2120. 
Y volveremos al programa principal al en- 
contrarnos con la instrucci6n RETURN. 
/,Qu nos queda para cumplir el re- 
corrido? Echando un vistazo a la linea 100 
del programa 1 (elprinci#al) observamos que 
se vuelve a la linea 80 y repetimos el ciclo. 
Ya hemos visto el funcionamiento general de 
todo este invento. Es conveniente ahora ba- 
jar a analizar c6mo vamos a realizar coda una 
de los opciones del menO. Pasamos a ello. 
Como ya hemos visto la manera de dibujar 
alguna figura geomtrica en algunos articu- 
los anteriores, s61o nos detendremos en fijar- 
nos en la manera de determinar el centro 't 

Fig. IV 

el radio en el caso de la circunferencia o 1 
punto de origen y el final de la recta o un vr- 
tice en el caso de las demos figuras. 
Para fiiar estos puntos recurrimos al empleo 
de un bucle WHILE... WEND que detecte si 
hemos pulsado la tecla RETURN o no. Mien- 
tras no la presionemos, el cursor seguir mo- 
vindose. 
Una vez pulsada, anotamos las coordena- 
dos del punto donde nos encontremos y se Io 
asociaremos a uno de los casos comentados 
anteriormente: el centro de la circunferencia, 
por ejemplo. 
Cuando tengamos determinados todos los 
puntos necesarios, la rutina correspondiente 
le dibujar6 la figura elegida. 
Observe queen caso de necesitar detector 
m6s de una pulsaci6n de la tecla RETURN, me- 
temos por medio un bucle retardador seme- 
jante a: 
10 FOR retardo=l TO 1000: NEXT retardo 
ya que si no, debido a la rapidez con que se 
ejecuta no nos daria tiempo a soltar la tecla 
en el momento preciso. 
Podemos aplicar todo Io anterior a la hora 
de fijar el color con el que vamos a dibujar una 
figura o el que vamos a utilizar para rellenar 
otra. Recuerde, para cualquier elecci6n iPUL - 
SE RETURN! 
Pot si acaso le ha quedado algo oscuro, le 

Fig. III 

Figura h Programa 
principal. 
Figura Ih Rutina 
para dibujar la 
pantalla. 
Figura IIh Rutina de 
movimiento. 
Figura IV: Rutina 
para trazar un 
rectdngulo. Este 
proceso 16gico 
puede aplicarse a 
los rutinas que nos 
dibujan el cuadrado, 
tridngulo y el 
rombo. 
Figura V: Rutina que 
nos permite cambiar 
el color de los 
grSficos. 

Fig. V 

remitimos a los organigramas y programas de 
coda una de estas subrutinas. Obsrvelos de- 
tenidamente y ver c6mo se le aclaran los po- 
sibles dudas. 
Y antes de terminar, un respaso. El proceso 
a seguir para dibuiar una figura es: 
- Elegir el color con el que vamos a dibu- 
jar los gr6ficos en caso de que no coincida con 
el cursor. Para ello le colocamos encima del 
color elegido y pulsamos RETURN si es correc- 
to. 
- Seleccionar una opci6n Ilevando el cur- 
sor encima de la zono del menO elegida y pul- 
sando la tecla RETURN a continuaci6n. 
- Fiiar los puntos que necesitemos en la zo- 
na de dibujo de la pantalla para trazar la fi- 
gura escogida (dos en el caso de la recta y la 
circunferencia y uno en los demds casos). 
- Si queremos rellenar de color una figu- 
ra colocamos el cursor en la opci6n RELLE- 
NAR, pulsando despus RETURN. A continua- 
ci6n seleccionamos de una forma an61oga el 
mismo color que hemos utilizado para dibu- 
jar el gr6fico. Despus movemos el cursor den- 
tro de la figura y si pulsamos de nuevo RE- 
TURN se nos Ilenar6 de color. 
Bueno. Es todo por esta semana. Si quiere 
ver en funcionamiento este clnvento pue- 
de teclear todos estos programas seguidos o 
bien mezclarlos con MERGE si Io escribe de 
uno en uno. La elecci6n es suya. Hasta pron- 
to. 

12 



" R • GRAM ' 

I0 REM PROGRAMA I 
20 REM PROGRAMA PRINCIPAL 
30 DEG 
40 LET x-420 
50 LET y-200 
0 color-1 
70 GOSUB 11000:REM PANTALLA 
BO OOSUB IO00:REM MOVIMIENTO 
90 IF x<192 THEN GOSUB 2000:REM ELE 3160 
81R OPCION or 
100 80T0 80 3170 
3180 
11000 REM PROGRAMA I; 3190 
11010 REM CREACION PANTALLA 3200 
11020 CLS 3210 
11030 PLOT 0,16,1 3220 
11040 DRAW 639,16 3230 
11050 DRAW 639,399 3240 
11060 DRAW 0,399 3250 
11070 DRAW 0,16 3260 
11080 MOVE 191,16 3270 

11090 
11100 
11110 
11120 
11130 
11140 
11150 
11160 
11170 
J1180 
11190 
11200 
11210 
11220 
color 
11230 
11240 

DRAW 191,399 
FOR linea 64 TO 399 STEP 48 
4000 
MOVE 190,1inea 4010 
DRAW Olinea 4020 
NEXT linea 
4030 
FOR texto 2 TO 20 STEP 3 
ardo 
READ opcion$ 4040 
LOCATE 2,TEXTO 4050 
PRINT opcion$ 4060 
NEXT texto 
4070 
FOR opcolor 0 TO 3 4080 
FOR columna=2 TO 47 4090 
MOVE 465opcolor+columna, 18 4100 
DRAW 465opcolor+columna,63,op 4110 
4120 
NEXT columna 
NEXT opcolor 

11250 DATA " CIRCULO","RECTANGU[O", 
" CUADRADO","TRIANGULO"," RECTA"," 
ROMBO"," RELLENAR" 
11260 RETURN 

IrK:O REM PROGRAMA III 
1010 REM RUTINA DE MOVIMIENTO 
1020 PIOT x,y,colorl 
1030 IF INKEY(O)-O THEN y-y+2 
1040 IF INKEY(2)=O THEN y=y-2 
1050 IF INKEY(1) 0 THEN x 
1060 IF INKEY(8)-O THEN x 
1070 IF x<2 OR ×>637 THEN x=xant 
I080 IF y<18 OR y>397 THEN y yant 
1090 color1-TEST(xy) 
1100 PLOT x,y,color 
1110 xant × 
1120 ynt=y 
1130 RETURN 

2000 REM PROGRAMA IV 
2010 REM RUTINA ELEGIR OPCION 
2020 WHILE INKEY(181<>0 
2030 GOSUB 1000 
2040 WEND 
2050 IF y>353 THEN GOSUB 3000:RETUR 
N 
2060 IF y>305 AND y<351 THEN GOSUB 
4000:RETURN 
2070 IF y>257 AND y<303 THEN GOSUB 
5000: RETURN 
2080 IF y>209 AND y<255 THEN GOSUB 
6000:RETURN 
2090 IF y>161 AND y<207 THEN GOSUB 
7000:RETURN 
2100 IF y>113 AND y<159 THEN GOSUB 
8000:RETURN 
2110 IF y>65 AND y<111 THEN GOSUB 9 
O00:RETURN 
2120 IF y<63 THEN GOSUB 10000:RETUR 
N 

origen; 
3100 FOR retardo=1 TO IO00:NEXT 
3110 WHILE INKEY(181<>O 
3120 GOSUB 1000 
3130 WEND 
3140 radio=SOR((x-xorigen)^2+(y-yor 
igen)^21 
3150 PRINT"RADIO";INT(radio) 

PLOT xorigen+radioyorigen,col 
FOR angulo 0 TO 360 
xcir=xorlgen+radio$COS(angulo) 
ycir-yorigen÷radioSIN(angulo) 
IF xcir<192 THEN xcir=192 
IF ycir<18 THEN ycir=18 
DRAN xcir,ycir 
NEXT angulo 
x-xorigen 
y-yorigen 
LOCATE 1,25:PRINT" 
RETURN 

REM PROGRAMA VI 
REM RUTINA DIBUAR RECTANGULO 
LOCATE 1,25:PRINT"RECTANGULO"; 
FOR retardo=1 TO IO00:NEXT ret 

WHILE INKEY(18><>O OR x<192 
GOSUB 1000 
WEND 
PRINT"(vertice";x;",";y;")" 
DRAWR 200,0 
DRAWR 0,100 
DRAWR -200,0 
DRAWR 0,-I00 
xnueva=x+100 

4130 IF xnueva<637 THEN x=xnueva EL 
SE x=637 
4140 ynueva-y+50 
4150 IF ynueva<397 THEN y=ynueva EL 
SE y=397 
4160 FOR retardo=l TO I000:NEXT ret 
ardo 
4170 LOCATE 1,25:PRINT" 
4180 RETURN 

5000 
5010 
5020 
5030 
ardo 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 

REM PROGRAMA VII 
REM RUTINA DIBUAR CUADRADO 
LOCATE 1,25:PRINT"CUADRADO"; 
FOR retardo 1 TO IO00:NEXT ret 

WHLE INKEY(181<>O OR x<192 
GOSUB 1000 
WEND 
PRINT"(vertice";x;",";y;")" 
DRAWR 150,0 
DRAWR 0,150 
DRAWR -150,0 
DRAWR 0,-150 
xnueva=x+75 

5130 IF xnueva<637 THEN x xnueva EL 
SE x=637 
5140 ynueva y÷75 
5150 IF ynueva<397 THEN y ynueva EL 
SE y-397 
5160 FOR retardo=l TO 1000:NEXT 
ardo 
5170 LOCATE 1,25:PRINT" 
5180 RETURN 

3000 REM PROGRAMA V 
3010 REM RUTINA DIBUAR CIRCULO 
3020 LOCATE 1,25:PRINT"CIRCULO "; 
3030 FOR retardo-1 TO IO00:NEXT 
3040 WHILE INKEY(181<>O OR x<192 
3050 OSUB IC)00 
3060 WEND 
3070 xcrigen=× 
3080 
3090 

6000 REM PROGRAMA VIII 
6010 REM RUTINA DIBU3AR TRIANGULO 
6020 LOCATE 1,25:PRINT"TRIANGULO"; 
6030 FOR retardo-1 TO IO00:NEXT ret 
ardo 
6040 WHILE INKEY(181<>O OR x<192 
6050 GOSUB 1000 
6060 WEND 
6070 PRINT"(vertice";x;",";y;")" 
6080 DRAWR 200,0 
6090 DRAWR -2005COS(601,200SIN(601 
6100 DRAWR -2001COS(601,-200SIN(60 
6110 xnueva=x+(200COS(6011 
6120 IF xnueva<637 THEN xmxnueva EL 
SEx 637 
6130 ynueva-y+(2005SIN(601/21 

yorigen=y 6140 IF ynueva<397 THEN y=ynueva EL 
PRINT"DE CENTRO";xorigen;",";y  SE y=397 

6150 
ardo 
6160 
6170 

FOR retardo I TO I000:NEXT ret 
LOCATE 1,25:PRINT" 
RETURN 

7000 
7010 
7020 
7030 
ardo 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 

REM PROGRAMA IX 
REM RUTINA TRAZAR RECTA 
LOCATE 1,25:PRINT"RECTA"; 
FOR retardo=l TO IO00:NEXT ret 

WHILE INKEY(181<>O OR x<192 
GOSUB 1000 
WEND 
PRINT"(origen";x;",";INT(y)! 
xorlgen=x 
yorigen y 
FOR retardo-1 TO IO00:NEXT 
WHILE INKEY(18)<>O 
GOSUB 1000 
WEND 
PRINT"-fin"IX;",";INT(y);")" 
PLOT xorigen,yorigen 
DRAW x,y,color 
FOR retardo I TO IO00:NEXT 
LOCATE 1,25:PRINT" 
RETIIRN 

8000 
8010 
8020 
8030 
ardo 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
) 
8110 
8120 

REM PROGRAMA X 
REM RUTINA DIBUAR ROMBO 
LOCATE 1,25:PRINT"ROMBO"; 
FOR retardo=1 TO IO00:NEXT ret 
WHILE INKEY(181<>O OR x<192 
GOSUB 1000 
WEND 
PRINT"(vertice";x;"";y;")" 
DRAWR I005COS(601,1005SIN(601 
DRAWR I005COS(601,-1005SIN(60) 
DRAWR -1005COS(601-I005SIN(60 
DRAWR -1OOCOS(60),IOO$SIN(60) 
xnueva=+(100COS(60)) 

8130 IF xnueva<637 THEN  xnueva EL 
SE x-637 
8140 FOR retardo=1 TO IO00:NEXT ret 
ardo 
8150 LOCATE 125:PRINT" 
8160 RETURN 

9000 
9010 
9020 
9030 
9040 
9050 
ardo 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 

REM PROGRAMA X; 
REM RELLENAR FIGURA 
LOCATE 1,25:PRINT"ELIGE COLOR" 
GOSUB 10000 
LOCATE 1,25:PRINT" 
FOR retardo=l TO IO00:NEXT ret 

WHILE x<192 
GOSUB 1000 
WEND 
WHILE INKEY(181<>O 
GOSUB tOO0 
WEND 
MOVE x+2,y 
FILL color 
RETURN 

10000 
10010 
10020 
tardo 
10030 
10040 
10050 
ux=2 
10060 
10070 
10080 

REM PROGRAMA XII 
REM ELECCION DE COLOR 
FOR retardo=l TO IO00:NEXT re 

WHILE INKEY(181<>O AND x<192 
IF x>144 THEN colorau×=3 
IF x>97 AND x<144 THEN colora 

IF x)50 AND x<97 THEN colorau 

IF x<50 THEN colorau=O 
80SUB 1000 

10090 LOCATE 1,25:PRINT"COLOR";colo 
raux;" PULSA RETURN SI ES EL ELESID 
10100 WEND 
10110 FOR retardo=l TO IO00:NEXT re 
tardo 
10120 LOCATE 1,25:PRINT" 
10130 color co|oraux 
I0140 RETURN 



ALCULO 
DE RRORE$ 

q esta ocasi6n analiza- 
remos un programa basado en el c61culo de 
errores cometidos por el individuo al realizar 
la medici6n. 
El desglose de las lineas es el siguiente: 
| 0-40 Estas sentencias REM dan informa- 
ci6n a los personas que leen el listado. Est6n 
separadas del resto del programa y son com- 
pletamente ignoradas por el ordenador. Es- 
tos REMs se pueden sustituir por la comida sen- 
cilia ('). 
50 REM que informa del comienzo del pro- 
grama y de la entrada de los datos de la me- 
dici6n. 
60 Limpia la pantalla. 
70 Se crea la ventana #1 con el comando 
WINDOW, situada y dimensionada segOn los 
par6metros indicados. 
80 Pregunta el nOmero de medidas reali- 
zadas y las asigna a la variable N. 
90 Especifica con la orden IF... THEN... 
que si se realiza un nOmero de medidas me- 
nor que 2, la ejecuci6n del programa vuelve 
a la linea 50, ya que es il6gico hacer un c61- 
cula de errores tomando menos de 2 medidas. 
1 O0 Con el comando DIM se crea una ma- 
triz de medidas A y se especifica cu61 va a ser 
su nOmero de elementos con la'variable N. 

' ,ST' ,e I 
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Cuando realizamos una medida de cualquier 
magnitud, la medici)n no es ¢ompletamente 
exacta, hay un pequeo error producido por 
el aporato con el que se realiza Io medido o 
por el individuo. 

| 10 Para m6s claridad del programa se 
pone el contador S (sumatorio de medidas) a 
cero, aunque el Amstrad Io da ya por rea- 
lizado. 
120 Escribe en pantalla el texto MEDI- 
DASh,: 
1,30 Comienza un bucle FOR... NEXT cu- 
ya variable de control es I y que tiene un nO- 
mero de iteraciones m6ximo igual a la varia- 
ble N (n6mero de medidas). 
140 Borra la ventana #1. 
150 Imprime en ella el texto con el nOme- 
ro de la medida a introducir. 
160 Pregunta los medidas realizadas, or- 
denadas segOn la variable I. A cada una de 
elias se le asigna una posici6n dentro de la ma- 
triz, mediante All). 
170 Escribe en pantalla (a continuaci6n 
de/texto impreso en la Ifnea 120) la lista de 
las medidas, ordenadas y separadas por un 
gui6n. 
| 80 En cada iteraci6n se suma a la varia- 
ble S las distintas medidas realizadas. 
190 Finaliza el ciclo FOR...NEXT. 
200 Borra la ventana #1. 
210 REM que informa del comienzo del 
c61culo del valor medio. 

240 REN OALCULO DE LA DESVIAC! 
20 FOR I=I TO N 
280 NEXT 
290 DT-SQR (D/(N-I)) 
###") 
RATIO0 MEDIO 
320 ECM=DT/SQR (N) 
330 LOCATE I,I:PRINT "ERROR 
UADRATICO MEDIO";DE$(ECM,"### 

220 Calcula la variable VM (valor medio) 
mediante el cociente entre el sumatorio de me- 
didas y el nOmero de los realizadas. VM = S/N. 
2,30 Representaci6n en pantalla de la so- 
luci6n encontrada para el valor medio. Esta 
viene realizada utilizando la plantilla de for- 
mato contenida en el comando DEC$. Esto es: 
6 posiciones para contener un nOmero entero 
con un m6ximo de 6 cifras, y 4 posiciones pa- 
ra contener 4 decimales. 
'240 REM que informa del comienzo del 
c61culo de la desviaci6n tipica. 
2,50 Para mayor claridad del programa se 
pone la variable D a cero. 
60 Inicia un nuevo bucle FOR... NEXT 
igual que el anterior. 
'270 En cada iteraci6n se suma a la varia- 
ble D el cuadrado de la resta enlre coda me- 
dida ordenada y el valor medio 
D= D+ (A(I)-VM)/2. 
80 Acaba el ciclo FOR... NEXT. 
290 Calcula la variable DT (desviaci6n tf- 
pica) mediante la raiz cuadrada del cociente 
entre la variable D y el nOmero de medidas 
realizadas menos 1. DT=SQR (D/(N-1)). 
,300 Se imprime en pantalla la soluci6n a 
la desviaci6n tipica. El resultado est6 repre- 
sentado mediante el comando DECS, igual que 
en la linea 230. 
,310 REM que informa del comienzo del 
c61culo de error cuadr6tico medio. 
30 Calcula la variable ECM (error cua- 
drdtico medio) mediante el cociente entre la 
desviaci6n fipica y la raiz cuadrada del nOme- 
ro de medidas. ECM= DT/SQR (N). 
330 Se escribe en pantalla la soluci6n al 
error cuadrtico medio. El resultado est6 re- 
presentado igual queen lineas anteriores. 
340 Impresi6n en pantalla de una adver- 
tencia y consejo para realizar el error total. 
3,50 Llamada a la rutina del FIRMWARE, 
que detiene ta ejecuci6n del programa hasta 
que se pulse una tecla. Esa rutina comienza 
en la direcci6n hexadecimal BB06. 
,360 Esta instrucci6n manda que la ejecu- 
ci6n del programa salte a la linea 50. 
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* Cada semana, durante los dos 
p-fGximos meses, aparecer dentro de las 
pginas de la revista un cupGn como el 
de muestra, que debers recortar y 
pegar en el lugar correspondiente de la 
pgina 16 de este mismo nQmero. 

envianosla a HOBBY PRESS, apartado de 
correos 232 de ALCOBENDAS 
(MADRID), sin olvidar incluir, 
claramente expresados, todos tus datos 
personales en el espacio reservado al 
efecto. 

* Asimismo, en todos los programas 
distribuidos por ERBE SOFTWARE, 
puedes encontrar los Iogotipos de U.S. 
GOLD y de la propia ERBE. Cualquiera de 
los dos tipos te valdr para rellenar los 
dos huecos de la pgina mencionada. 

* Todas las cartas recibidas antes del 
dia 30 de junio de 1986, participarn en 
un sorteo que tendr lugar el dia 1 de 
julio en nuestra redacciSn. Los diez 
ganadores recibirn 

* Una vez rellena la pgina con los 8 
simbolos de AMSTRAD SEMANAL y 
los 2 de ERBE o U.S. GOLD (m#s los de 
muestra que ya est#n colocados) 

COMPLETAMENTE GRATIS 
y durante un ao, 
TODOS LOS PROGRAMAS que ERBE 
SOFTWARE distribuya para el AMSTRAD. 

iiParticipa en esta extraordinaria promocnH 

NO PIERDAS ES  A OPORTUNIDAD 

O UE TE BRINDAN ERBE 

Y A MS TRA D SEMA NA L 
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La exuberante vegetaci6n de la jungla 
tropical, es el escenario de la Oltima y m6s 
peligrosa aventur.a de la familia Week; 
canibales, cocodr,los, leones, piraas y 
demcs peligros de la floresta, se 
interponen entre Wally y su familia. 

La carrera de Wa- 
Ily ha sido fulgurante; lejos quedan 
aquellos tiempos en que era mec- 
nico de autom6viles en una peque- 
a ciudad. 
Harto de grasa, tuercas y olor a 
gasolina, su cabeza se pone a pen- 
sar en formas m6s r6pidas de hacer 
oinero. 
Con ayuda del clan familiar y al- 
gunos amigos invitados, prepara un 
astuto plan, cuyo objetivo es el Ban- 
co Central de su ciudad, el cual de- 
jan limpio de fondos. 
Tras el audaz golpe, la familia con- 
tinOa con su vida normal, no mos- 
trando signos externos de su nueva 
situaci6n econ6mica. Por otro lado, 
los investigaciones policiales sobre el 
golpe contin0an adelante, y el cere- 
bro de la banda empieza a conside- 
rat si su situaci6n es totalmente se- 
gura. 

SENSA rlONAL SOFTWARE FROM 

Consciente de que las t6cnicas de 
investigaci6n criminal han avanzado 
mucho, y nada se escapa a los ojos 
de la ley, decide abandonar el pais, 
y esconderse en un Estado que no 
tenga acuerdo de extradicci6n con la 
Gran Bretaa. 
Para no levantar sospechas, la fa- 
milia se embarca en un crucero de 
placer al Africa negro, desapare- 
ciendo en uno de los puertos de es- 
cala, para dirigirse a una isla apa- 
rentemente deshabitada, en la cual 
permanecer a salvo del implacable 
brazo de la justicia. 
Cuando los tres componentes de la 
familia se disponen a Ilevar una vi- 
da totalmente ecol6gica en contac- 
to con la naturaleza, entran en esce- 
na los canibales que habitan en la 
parte alta de la isla y de los cuales 
la familia no imaginaba ni siquiera su 
existencia. 
El resultado de esta visita inespe- 
rada, es que Wilma y Herbert, res- 
pectivamente mujer e hijo de Wally, 
son atrapados y se encuentran en se- 
rio peligro de transformarse en una 
de las espacialidades culinarias del 
cocinero de la tribu. 
Wally, que no ha sido atropado 
por los indigenas, pues en el momen- 
to del asalto se encontraba subido a 
un cocotero, tiene que liberar a su 
querida familia al precio que sea. 
Para ello vagar6 incansablemen- 
te por la jungla, combatiendo a bra- 
zo partido contra leones, cocodrilos, 
indigenas, abejorros gigantes y de- 
m6s moradores. Descender6 a las 
profundidades acu6ticas, escalar6 
6rboles centenarios y no dejar6 un 
palmo de terreno sin explorar en 
busca de los suyos. 

Un programa que sigue fielmente 
la linea de las anteriores aventuras 
de Wally; en un escenario tropical 
debemos desvelar la complicada tra- 
ma que nos har6 rescatar a los com- 
ponentes de la familia. 
Los gr+ficos que nos acompaan 
en el transcurso de la aventura, es- 
t+n realizados en el modo de menor 
resoluci6n, que en detrimento de +s- 
to, dota al programa de un colorido 
muy adecuado al escenario elegido; 
6rboles, vegetaci6n y dem6s elemen- 
tos, siguen la pauta de los progra- 
mas de la casa. Realizados con un di- 
seo sencillo y muy descriptivo, dan 
vida alas distintas pantallas. 
A nuestro paso, mientras recono- 
cemos las zonas de la isla por las que 
podemos circular, encontramos mul- 
titud de objetos, cada uno 0til para 
una sola misi6n; botellas, espadas, 
hachas, martillos etc. tienen solamen- 
te uso en un lugar determinado de 
la isla, el cual hay que descubrir a 
base de paciencia. 
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A pesar de todo, completar el 100 
por 100 de la aventura solamente es- 
t6 al alcance de los creadores del 
iuega, pues esta nueva aventura de 
Wally, sigue en la Iinea de las ante- 
riores, y todas sabemos Io que cues° 
ta completar un Pyjamarama o un 
Evryane's a Wally, una misi6n impa- 
sible. 
Un programa para verdaderos 
adictos, a los que esos juegos tan f6- 
ciles que se resuelven en dos senta- 
das, les deian totalmente frfos. 
En este tendr6n que usar tada su 
astucia y perseverancia, encontran- 
do en cada nuevo enfrentamiento 
con el programa, esas sutilezas que 
permiten encontrar sentido a ciertos 
objetos en determinadas pantallas, 
fuera de las cuales no sirven absolu- 
tamente para nada. 
La trama de la aventura, est6 en- 
cadenada 16gicamente, de manera 

que las acciones a Ilevar a cabo, de- 
penden unas del anterior cumpli- 
miento de otras, constituyendo un 
proceso complicado, en el cual con- 
seguir descubrir el uso que se debe 
dar a algunos de los objetos con que 
nos encontramos, es un gran Iogro. 
Averiguar en cada nueva partida 
el uso de un objeto que no conoce- 
mos, debe ser la meta de nuestras in- 
vestigaciones por la exuberante jun- 
gla tropical. Gracias a determinados 
objetos podremos descubrir panta- 
Ilas de las que no ten/amos ni noci6n 
y avanzando poco a poco en el uso 
de tados ellos, unos meses de pr6c- 
tica nos pondr6n en condicianes de 
realizar infinidad de descubrimientos 
en las distintas zonas de la selva. 

RIBBIT: 
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Los ordenadores Amstrad cada vez est6n 
causando un impacto mayor en todo el 
mundo. Esto se refleja, 16gicomente, en 
todos los productos pr.opios de todo 
computador, pero fabrlcados por otras 
personas: aumentan de numero 

rpidamente. 
As ha ocurrido con el goloso tema de las 
ampliaciones de memoria, por las obvias 
ventajas que ¢onlleva el disponer de ms 
en tu ordenador. 
Banco de pruebas analizo las m6s 
populores del mercado: las cmpliaciones 
de DK'TRONICS. 

/tMSTRItl] 

se quejaban de falta de memoria en su orde- 
nador Amstrad CPC, la firma inglesa 
DK'TRONICS acaba de comercializar en Es- 
papa la ampliaci6n de memoria que aumen- 
ta en 64 Kbytes nuestro ordenador. 
Dk'Tronics se estrena en el mercado del or- 
denador Amstrad con una nueva gama de 
perifricos que fortalecen aOn m6s las posibio 
lidades de este ordenador. De la nueva ga- 
ma de productos vamos a tratar en esta oca- 
si6n de la ampliaci6n de 64 K compatible pao 
ra los modelos CPC 464 y 664. Dicha amplia- 
ci6n consta de una parte de Software y otra 
de Hardware. La primera incluye los nuevos 
comandos RSX en soporte de cinta magntica 
con los cuales accederemos a los nuevos ban- 
cos de memoria. La segunda contiene los chips 
de RAM que aumentan la capacidad en cua- 
tro nuevos bloques de 16 K cada uno y se co- 
nexiona al ordenador a travs del port trase- 
ro del (<Floppy Diso, Ilevando en su parte pos- 
terior el bus de expansi6n para conectar otros 
perifricos como la Unidad de Disco. 
El manual que acompaa a este kit consta 
de 22 p6ginas en el cual se explican daramen- 
te los nuevos comandos, asi como el acceso 
a los diferentes bancos de memoria. Trae ejem- 
plos de la utilizaci6n de estas instrucciones, 
aunque de momento vienen publicado en in- 
gls, el distribuidor oficial en Fspaa nos ha 
asegurado que saldr6n pr6ximamente a la 
venta en castellano. 

Posibilidad 
de utilizaci6n 
del CPIM PLUS 

Una de las mejores aplicaciones de esta am- 
pliaci6n es la utilizaci6n del CP/M PLUS hasta 
ahora de uso exdusivo para el CPC-6128. Sin 
embargo, esta posibilidad no queda bien acla- 
rada en el manual (tan s61o nos tab/a seis 
neas en dospdrrafos). Uno de los defectos que 
adolecia el CP/M 2.2 era la imposibilidad de 
utilizar compiladores de otros lenguajes a un 
alto nivel, ya que los que hasta ahora se coo 
mercializan, tienen muy recortadas sus posi- 
bilidades. Pot citar algunos ejemplos el com- 
pilador de Cobol-80 de Microsoft o el 
Fortran-80 de esta misma casa son ahora aco 
cesibles con los modelos 464 y 664. 
Por otra parte toda la gama de programas 
de gesti6n que corre bajo CP/M PLUS estg al 
alcance con esta nueva ampliaci6n. 

20 ,/CiOHOa#Y AMSTRAD 



Puesta en marcha 

Lo conexi6n del Hardware al bus de expan- 
si6n se debe de realizor con el ordenador apa- 
gado para evitar posibles cortocircuitos entre 
sus diferentes pistas. Una vez realizada 6sta, 
nos dispondremos a cargar el Software qua 
has introduce los comandos de RSX y nos re- 
conoce los nuevos bancos. 
Una vez cargado el programa nos pregun- 
tar6 par la direcci6n de carga en la qua se ubi- 
car6 el programa. Esta direcci6n va desde la 
direcci6n 32768 a la 41811; en el caso de no 
especificar ninguna direcci6n y pulsar direc- 
tamente la tecla de Return o Intro 6ste se car- 
gar en la direcci6n ms alto. Comprobare- 
mos qua en la pantalla nos sale un test de los 
bancos de memoria, indic6ndonos si hay al- 
gOn error yen qu6 banco se encuentra. El to- 
tal de bancos nuevos es de cuatro, de 16 K 
cada uno. El sistema viene aumentado con 
arras mensajes de error. Estos son: 
Bad Bank Command: Se cornete un 
error al poner un par6metro o sila variable 
no est6 presente donde deberia estar situada. 
Bank Unavaible: Si se intenta entrar en 
el banco qua no est6 presente en el sistema. 
Bad Bank Parameter: Hernos utiliza- 
do un par6metro inadecuado en un banco de 
memoria. 
Bad Bank Address: La direcci6n pedi- 
da est6 fuera del rango del banco. Esta va des- 
de la 0 hasta la 16383. 
Value Invalid: La direcci6n del banco es 
m6s grande qua la definida en el data. 

Bad Window Definition: El nOmero de 
ventana es superior a siete, qua es el m6ximo 
qua perrnite. Ahora ya estamos preparados 
para programar contando con los bancos de 
mernoria adicionales qua le hemos incorpora- 
do. 0 bien ejecutar el CP/M PLUS con sus pro- 
gramas. Aunque antes hernos de ejecutar un 
comando nuevo: Emulate. 

Nuevos comandos 
para el Arnstrad 
Dace son los nuevas instrucciones qua nos 
aporta la arnpliaci6n. Algunas de estas instruc- 
ciones pueden Ilevar uno o varios par6metros, 
o ninguno segOn el caso. Una ventaja qua he- 
rnos podido observar es la f6cil asirnilaci6n de 
estas nuevas instrucciones. Para dar una pe- 
quea idea de stas y c6mo funcionan pode- 
rnos hacer cinco divisiones. 
La primera divisi6n es la encargada del ma- 
nejo de pantallas con los bancos; los encar- 
gados de cargar y salvar las pantallas en es- 
te caso son: Loads y Saves respectivarnente. 
Estos comandos pueden astor acornpaados 
de varios par6metros: 
Loads, [Banco], [Swap] 
Saves, [8anco], [Swap] 
El prirner par6metro es obligatorio y varia 
desde 1 hasta 4, rnientras qua el segundo es 
opcional. El segundo valor debe de set un 0 
6 un 1 dependiendo si queremos activarlo o 
no. Si se omite este par6rnetro torna par de- 
facto el valor O. 

Varnos ha utilizar estas nuevas sentencias en 
el prirner programa para observar su ejecu- 
ci6n y poder sacarle todo el partido a esta sen- 
tencia en nuestros programas. 
La segunda divisi6n es la encargada del ma- 
nejo de ventanas con los bancos de RAM. Son 
ocho los ventanas qua podernos crear en los 
bancos de memoria numeradas del 0 al 7. 
Otros dos nuevos cornandos se nos incorpo- 
ran a nuestro Basic para cargar o salvar ven- 
tanas: Loadw y Savew respectivarnente. AI 
igual qua antes estos comandos pueden ir 
acompaados par varios par6metros, aunque 
no sean todos necesarios a la hora de ern- 
plearlos: 
- Loadw, [Ngmero Ventana], [Banco], 
[Direcci6n del Banco] 
- Savew, [NOmero Ventana], [Banco], 
[Direcci6n del Banco] 
El primer parmetro es obligatorio y nos in- 
dica cu61 es el nOmero de la ventana, ngmero 
comprendido entre 0 y 7 incluidos ambos. El 
segundo coma en el caso anterior, es tarnbi6n 
obligatorio, y debe de ser un nOmero com- 
prendido entre 1 y 4, qua has indica el nOme- 
ro de banco qua va a ocupar la ventana. Par 
Oltimo, el tercero es opcional, y nos perrnite 
ubicar en la memoria la ventana dentro del 
banco; esta direcci6n debe astor cornprendi- 
da entre la 0 y la 16383. 
Para m6s informaci6n y utilizar Io major po- 
sible los bancos de mernoria, les inforrnarnos 
qua cada ventana en modo 1 de 10'10 tiene 
una Iongitud de 1600 bytes con Io cual colo- 
cada al principio de un banco (an la direcci6n 
0), nos quedaria libra hasta la 16383 para me- 
ter otras ventanas, datos o matrices dentro de 
un mismo banco de rnernoria. Con esto tene- 
mos qua la prirnera ventana podria situarse 
en la direcci6n 0 y la Oltima en la direcci6n 
14783, qua sumado a los 1600 bytes no so- 
brepasan la direcci6n 16383. 
Ahora varnos a ver con el segundo progra- 
ma la velocidad qua tiene de intercarnbio en- 
tre la memoria principal y arnpliaci6n. A la vez 
qua comprobamos las posibilidades de estos 
comandos y su otencia. 
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Antes de se?ur seria conveniente que ob- 
servemos en el anterior programa la rapidez 
con que cambia la pantalla, dando la sensa- 
ci6n de borrarse. Sin embargo el programa 
al pulsar una tecla por primera vez crea una 
ventana, a continuaci6n salva el banco n. ° 1 
la pantalla original para luego recuperarla de 
nuevo. Una vez creada y guardada en el ban- 
co la borra y espera que pulsemos cualquier 
tecla por segunda vez. Mientras tanto escri- 
be un mensaje en pantalla que se repite sin ce- 
sar hasta que se pulsa una tecla. En ese mo- 
mento carga la pantalla inicial y espera que 
se pulse una teda. 
Si ha leido todo Io anterior sobre la Iongi- 
tud de las ventanas se har6 dos preguntas, es 
posible crear ventanas en otros modos y otros 
tamaos., cu6nto ocupar6 en este caso ca- 
da ventana? Pues bien, si es posible crear ven- 
tanas en otros tamaos y otros modos, y pa- 
ra facilitar la labor de programaci6n acom- 
paamos a continuaci6n las siguientes f6rmu- 
las: 
MODO O TAMAO=(X2-XI+I) * 4 * 
(Y2-YJ +I) * 8 
MODO I O TAMANO=(X2-XI+I) * 2 * 
(Y2-Y1 +I)* 8 
MODO 2 O TAMANO=(X2-XI+I) * 
(Y2-Y1+I) * 8 
Donde: 
X1 es la coordenada del eje x de la izquierda 
de la ventana. 
X2 es la coordenada del eje x de la derecha 
de la ventana. 
Y1 es la coordenada del eie y de la parte su- 
perior de la ventana. 
Y2 es la coordenada del eje y de la parte in- 
ferior de la ventana. 
Si no asignamos bien el valor, por ejemplo 
m6s grande del admitido por el banco en el 
que estamos trabajando, el ordenador nos da- 
ria error y podria causar unos efectos extra- 
os en la pantalla. 
La tercera divisi6n se puede considerar la 
m6s importante, pues trata de las Matrices, 
Variables y Cadenas alfanumaricas. De nue- 
vo son dos, las instrucciones que nos aportan 
a nuestro Basic, con sus respectivos parame- 
tros opcionales, para cargar y salvar: Loadd 
y Saved respectivamente. Su estructura seria: 
Loadd, [Banco], [Localizaci6n], [Longitud], 
[Direcci6n del banco] 
Saved, [Banco], [Localizaci6n], [Longitud], 
[Direcci6n del Banco] 
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El primer par6metro es el banco que vamos 
a utilizar; el segundo es la direcci6n de me- 
moria en la cual comienzan los datos; el ter- 
cero la Iongitud de los datos; y por 01timo, el 
cuarto es opcional, en 61 introduciremos la di- 
recci6n del banco en la que se va ha encon- 
trar dichos datos, para poder alojar otros nue- 
vos o distintas informaciones como puede ser 
alguna pantalla. 
Ahora bien, nos encontramos con la nece- 
sidad de conocer la Iocalizaci6n de nuestra 
matriz asi como la Iongitud y direcci6n del ban- 
co. La Iocalizaci6n es f6cil, tan s61o debemos 
una vez dimensionada la matriz, solicitar d6n- 
de est6 Iocalizado su primer elemento. Esto se 
consigue con: 
10 DIM A(50) 
20 PRINT @ A(0) 
En el caso de estar muJtidimensionada, tan 
s61o tendriamos que ampliar el valor de A[0): 
10 DIM A(5, 5,16, 50) 
20 PRINT @ A(0, 0, 0, 0) 
Con esto tenemos solucionado el primer pro- 
blema que se nos presentaba. El segundo vie- 
ne de la Iongitud de la matriz. En este caso 
hay que tener en cuenta de qua tipo son sus 
valores: si son n0meros reales tendr6 cinco 
bytes por elemento, si son enteros contar6 dos 
bytes por elemento y si son cadenas la Iongi- 
tud de bytes ser6 variable. 
Por ejemplo si la matriz es de: 
10 DIM A(50) 
en este caso serian 51 elementos. El n0mero 
de Bytes es de 51 * 5=255 Bytes. 
I0 DIM A(33, 27) 
en esfe otto serian 33 * 27=891 elementos. 
El nOmero de bytes es de 891 * 5=4455 Bytes. 
Vamos a utilizar una matriz A(O) la cual 
tiene un total de 51 elementos y 255 bytes. Es- 
tos se encuentran en la direcci6n de PRINT 
@ A(0) y tienen una Iongitud de 255 bytes. El 
primero estar6 en la 0 el siguiente en la 255 
el siguiente en la 510, etc. 
En el tercer programa vamos a crear un fi- 
chero que nos Io rellene de valores para lue- 
go utilizarlos: 

Ahora una vez creados los datos, borrare- 
mos este programa y crearemos el siguiente: 
Este programa Io podemos tener en cinta o 
en disco, para luego utilizarlo en los bancos 
de memoria. Si queremos operar un poco con 
al, tendriamos que teclear este otro con el que 
podiamos sacar una idea particular y darle 
nuestra propia utilidad en futuros programa 
basado en la ampliaci6n de memoria. 
El cuarto grupo de instrucciones es la dedi- 
cada al manejo de almacenar las pantallas y 
ventanas, con la que se consigue un efecto de 
animaci6n. Esto se consigue mediante tres nue- 
vos comandos: High Low y Swap. Las dos pri- 
meras instrucciones no utilizan par6metros op- 
cionales, coloc6ndose independientemente en 
medio de nuestro programa. La tercera no Ile- 
va par6metros pero la podemos encontror co- 
mo par6metro dentro de las anteriores instruc- 
clones. En caso de ir independiente, nos ac- 
tOa como un intercambio de pantallas o da- 
tos entre dos zonas de memoria. Siva asocia- 
da la encontraremos como un valor que pue- 
de ser 0 6 1, si queremos activarlo o no. Si no 
queremos ponerlo se toma por defecto el va- 
lor de 0, el cual es desactivado. Este Io pode- 
mos encontrar en las instrucciones siguientes: 
Loads, [Banco], [Swap] 
Saves, [Banco], [Swap] 
Loadw, [Ngmero Ventana], [Banco], [Direc- 
ci6n del Banco], [Swap] 
Savew, [Ngmero Ventana], [Banco], [Direc- 
ci6n del Banco], [Swap] 
Los comandos de Low y High nos dan la par- 
te baja y alta de la pantalla respectivamente. 
Que podemos intercambiar sus valores con la 
tercera instrucci6n [Swap). 
Bien ahora si modificamos el programa n0- 
mero 1, e introducimos las siguientes lineas: 
5 MEMORY 16383: HIGH: REM o LOW mo- 
dificando la memoria 135 IF 
SCREEN2--SCREEN/2 THEN T=TIME: WHI- 
LE TIMET+20: WEND 
140 LOADS, SCREEN, 1: SWAP 
Podremos ver el efecto que produce en la 
pantalla, utilizando el High o el Low en el pro- 
grama nmero 1. 
La Oltima secci6n de comandos, serian tal 
vez los comandos destinados a la programa- 
ci6n directa de bancos o modificaci6n de as- 
tos dentro de nuestros programas o los comer- 
ciales. 



Este grupo Io podemos subdividir en dos 
grupos. El primero estaria formados por los 
comandos: Bank y Askram. Estos dos coman- 
dos nos dan la posibilidad de trabajar en un 
banco delerminado y hallar la informaci6n ne- 
cesaria para trabajar en ste. La orden Ask- 
ram se acompa6a de dos par6metros: 
ASKRAM, [Opci6n], [Variable]. 
Dentro de la opci6n podemos elegir entre 
tres valores: 
1- Nos da informaci6n sobre la cantidad de 
RAM utilizada. 
2- Nos indica el nOmero de bancos ocupa- 
dOS. 
3- Asigna el valor 0 6 1 dependiendo del es- 
tado de la RAM. 
El segundo subgrupo est6 formado por otras 
dos instrucciones que son: Poke y Peek. Este 
nos modifica el valor de una determinada fun- 
ci6n o par6metro de un banco. Los comandos 
Peek y Poke vienen acompaados de tres pa- 
rmetros: 
PEEK, [Banco], [Direcci6n del Banco], 
[Variable] 
POKE, [Banco], [Direcci6n del Banco], 
[Variable] 
Donde a la Variable se le asinga el Valor de 
la direcci6n del banco (de 0 a 16383). 

Bajo la lupa 
La ampliaci6n recurre para obtener los 64 
K extras de memoria RAM a un grupo de ocho 
integrados. Adems incorpora cinco integra- 
dos que maneian las direcciones de memorias, 
y un circuito 16gico PAL que controla los dife- 
rentes bancos de memoria. 
El primer grupo de ocho chips son de 64 K 
cada uno de memoria dinmica, que hacen en 
lotal 512 K falsos. Esto es debido a que por 
el diseffo de la pastilla se precisa del total men- 
cionado para obtener la memoria deseada. 
De los cinco integrados del segundo grupo, 
dos de ellos se encargan de formar los cuatro 
bloques de 16 K que forman la memoria, mien- 
tras que los otros tres, tienen como misi6n el 
direccionamiento de stos. 

Problemas 
de compatibilidad 
Como ya se ha comeniado en la introduc- 
ci6n, el perifrico de DK' TRONICS est60ni- 
camente dirigido a los usuarios de los orde- 
nadores CPC 464 y 664, Io cual excluye a la 
variante espaffola del 464 denominada 472 
que ha sido comercializada recientemene. Es- 
to se debe a que esta Oltima versi6n incorpo- 
ra una nueva ROM poco amiga de la ampliao 
ci6n de memoria como hemos podido compro- 
bar en nuestro banco de pruebas. 

Francisco G.R, 

PROGRAMA I 

10 MODE 
2< BORDER 
0 EON col 
40 INK col 
50 NEX,T col 
60 FOR col 
70 PAPER col:Cl 
80 iSAVES, col + I 
90 NEXT col 
13 
110 FN :PAPLH 
120 WHILE 
14 IL OAOS,pant al la 
150 NFxr panlalI 
160 WEND 
17( END 

PRO(RAMA 2 

I 0 MODE I 
2D FOR i-I ,TO r: 
30 PRINT STRING$(39,CIR$(217))'- 
40 PRINT S,TRING$(39,CHR$(28)) 
5( NEXT i 
60 CALl ,BBO6:REM Espet a p,isr u 
tecla 
70 W]NDWW #I,INT(NND(i)9i),INT(F 
ND(O) I9+INT(RND<I)S117)), INT(NND( 
I)14kI), INI (RND(r)I4; IN[ (RND(1) l 
05) ) 
80 PEN #I,2:PAF'LR #1,3 
90 ISAVES, I. I:REM Salvo el cntenid 
o de la pan al la en ld RAM 
tO0 CLS #1:REM Durra la pantalla 
II0 WHIi E INFEY$-"":REM kspera puls 
ar una tecla por segilMda vez 
120 F'RIN( #1,"VEN[ANA MILROHONBY" 
13u WEND 
14o :[OADW. II:RFM Restblece I pa 
ntalla 
150 GOTO 6n 

PROGRAMA 3 

IU OF'kNOUt "stock.dat" 
20 FOR week=l I0 52 
30 FOR item-1 TO 60 
40 PRINT #9, IN[ (RND(1)3000+IO0) 
5c NEXT item 
60 NEX] week 
70 CLOSEOUT 
80 END 

PROGRAMA 4 

I DIM stock(b0) 
2D INPII1 "leemos ÷rheros (S/N)"an 
s$ 
30 IF i OWER$(as$) "S" OR LOWERS(an 
s$) "SI" TIEN GOSUB I00 
IOOF NEM subrutJna para leer datos 
del disco 
1010 OF'ENIN "stoc .dot" 
I)?U FOR weel, I TO 52 
100 FOR em I ]0 60 
1040 INPUT #9.stock(Item) 

10bO NEX,T tem 
10bO ISAVED,4,g Iocl 
Ob 
I07D NkX; weel 
In80 Ci OSFIN 
1090 RE'TI IRN 

PROGRAMA 5 

20 INf'lll ")r(,mos fcheto 
s$)="S" rilEN GOSUB 
40 R M 
10 I UCA1E 
IZ.( IF mno ] ON o(no bo TIIFN 
150 PRINT "Datra pma cada 
170 FRINT l' Ele Feb Mr Ahr 
May ,hu 3I Aqu 5'p fie 
I los 
180 FOti loop-I Ill 4 
90 LOCATE 1,24 loop[. 
20() PR]NI IN$(]C)DI): 
?1 NFXT loop 
220 MOVF bO,68:I)flW 60.(:DRAW 
:DNAW 6[, 68:MOVF 64(h24:DRAW 
230 I UR loop I lO 4 
240 MOVL 48,1oOp8(t?4:DRAW 
8024 
?5fl NEXT loop 
260 FflK wel I I0 
27¢ IF epl /2 el 2 rllkN 
n-2 
280 II OADD,4,StOl (O),bl,wetl 
29U ycord-stcI. (temno) 
AND 492 
nr FOR v.( Lur d-  I 0 I  S I [ F n 
310 MOVE 49xcrdwecI.It,ycord*2 
6:DRAW 9+cor dweel i  
320 NIX  xcoord 
,4U GDTO 11C 
I()C) RFM slL)t ,I nA d ]e(,r dato 
] dsc 
J010 [IH NIN "stool .dL l' 
ILI?O FOR weel-1 TO 5  
IC30 ION ltPm-) I0 
1)4 [NPIJT #9,slol k(lem) 
1050 NEXI tpm 
I06( ISAVI D,4,$s4ocl (c) 
r5 
I070 NLX I 
1(Su [I OF IN 
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AMSTRAD CPC-464 

AMS 

SERIE CPC 

UNIDAD CENTRAL. MEMORIAS 
. MlCroprocesador ZSOA- 64K RAM 
ampliables - 32K OM ampliables 
• TECI4.DO  Teclado profesional con 
74 teclas.en 3 bloques - Haste 32.teclas 
programables -" Tec]ado redefLgle 
. PANTALLA o Mllit0r RGB 
o color (14") 
Normal Alta It•s, Multicolor 
Col × lineas 40 × 25 80 × 
Puntos 3,0 × 200 640 × 200 160 × 
- Se pueden definir hta 8 vettanas de 
texto y 1 de gr,ificos • SONIDO 
• 3 canales de 8 octaves moduladas 
independientemente - Altevoz interno 
reguleb.le- Salida estreo e BASIC 
e Lo omotiv BASIC ampliado en 
Incluye los comandos AFTER y EVERY 
pare control de interrupciones 

AMSTRAD CPC 464 

CASSETTE, Cassette incorporada con 
velocidad de grbaci6n (1 6 2 Kbaudios) 
controlada desd Baie, CONECTORES 
• Bus PCB multiuso, Unidad de Disco 
exterior, paralelo Centronics, salida 
estreo,:,joystick, lipiz 6ptico, etc. 
, pMBTO, Ordenador cop mqnitor 
vde o color- 8 ca -t[- con 
procaines: Libro 'Ou[a de.eferen . 
BASIC pare el programadof" .Manual en 
cast•llano - Oaranfia Oficial AMSTD 
TODO PORmomtor ver e 

AD 

AMSTRAD CPC 6128 

, D'DJSO U 'd 
UNIDAD 
fn&oorda p. a disco de 3" e IK 
por cara, SISTEMAS  ' ' I   S 
 AMSDOS, Ce/M 22, CP/M Plus (3, 
 CONECTOS, Bus PCB multiuso, 
paralelo Centrocs, cassette exterior, 
2.  Uni.dad e Discp,salistreo, 
joys , lpi ptf,, el 
* SUMISTRO. Ordenador con monitr 
verde o color - Disco con CP/M 2.2 y 
lenguaje OK LOGO- Disco con C, M 
Plus y utilidedes, sco on 6 progrmas' 
de bsquic- M l e  tellno- 
Oarantia Oficial AMSTRAD ESPAA. 
TODO POR 84.900Pts. (monitor verde) 



PCW-825, AMSTRA P , 2: 

S "AM TRAD 

AMSTRAD PCW 8256 

UNID.AD CENTRAL. MEMORIAS 
. Micbproceador 7,80A - ,56K RAM de 
las que I]2K se utilizan como disco RAI 
e TECI.DO • Teclado profesignal en 
castellano (fi, acento...) de 82 teclas 
* PANTALLA o Monito:.verde de alfa 
resoluci6n - 90 columna × 32 lineas de 
textO e UNIDAD DE DISCO • Disco de 
3" y 173K-,por cara- Opcionalmenle, 
' Unidad de Disco de 1 Mbyte integrable 
• SISTEI OPERJ.TIO • CPEM Plus 
e Digital Research • IMPRESORA • 
' a  al'dad (NLQ) a 20 c.p.s, - C.alidad 
-.- d a 90 e.p.s. - Papel contin6 u 
6. sltas - Alineaci6n automtica del 
o 1- Caracteres normal•s, 
,,, pnmidosl expandidos control del 
,.. o de letra (normal, crsiva, negrita, 
.uadices, suprfices, ubayado, e). 
OgCIONES e it de Ampliaci6n a 
,2K  '' 2.  Unidad de Disco- 
, .face .ene:S 2C y paralelo 

TODO POE 129.900 Pts. 

os ms prestigosos paqu&{s de 
Software Profesional, en formato 
AMSTRAD... a "pre¢ioa AMSTRAD" 

Emste tambi6n la versl6n PCW 851.2, ,,on 
512K RAM y ia 2." Unidad de Disc de 
1 Mbyte incorporada 
* El PCW 8.56 puede utilizarse como 
terminal yen comunicaciones. 
El I.V.A. no est induido en los precos. 
NOT: Es muy importaate venficar lagarant[a ,e. 
aparato ya e s61o STD PANA puede 
garant=zade la ordenada reracidn F sobre todo 
matees derepuesto ofictMeS (Monitor, 
ordenador, ssee o,idades de scos), 

Avd, del Mh nneo, 9. Tels. 433 45 48 - 433 48 26, 
28G07 MADItlD 
Delegacln Catalua Trragona, ll0 • Tel, 325 10 58, 
0$01S BARCELONA 
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Realizado por Rafael S6nchez de L6pez 

El PCW8256, por su precio, configuraci6n y prestaciones, vlene que ni pintado poro 
realizar aplicaclones de gesti6n, y en este sentido existen coda vez m6s cantidad de 
programas comerciales que pretenden resolver los posibles problemas con que un 
usuario empresarial puede enfrentarse. 
Una de las m6s comunes es el control de stocks; nosotros presentamos un completo 
programa que resuelve esto, escrito integramente en Mallard Basic, con salida impresa 
induida, y, adems, gratis. Creemos que merece la pena tedearlo. 

rolor 
un olmocn es una de las tareos m6s 
lenfos, pero a la vez m6s importan- 
te de los que se llevan a cabo en 
cualquier actividod. Su buen funcio- 
namienfo dor buenos dotos pora 
elaboror costos, sobre todo en acti- 
vidades de fabricaci6n. A los olmo- 
cenistos les ofrecer6 siempre una vi- 
si6n actuolizada de sus exisfencias. 
Del almocn debemos conocer en 
todo momento Io situaci6n de los ele- 
menfos que Io componen, sober qu@ 
materiales tenemos, cu6nta cantidad 
hay de los mismos, quin los ha ser- 
vido, el precio al que los hemos com- 
prado, las existencias minimas poro 
poder frabaior mienfras ese moterial 
es repuesto por el suminisfrador y el 
volor total de codo materiol. 
En el momento de Io entrada de 
material en almacn, se debe conta- 
bilizar dicha entrada, haciendo los 
aumentos necesarios de cantidad de 
moterial, como de precio del mismo, 
para solidas el mismo mtodo pero 
disminuyendo estos dotos de la ficha 
del arficulo. 
En cuanto o voloraci6n del alma- 
c@n existen tres mfodos fundamen- 
tales, nosotros hemos empleado el 
LIFO, es deck, que el material del al- 
macgn siempre se acfualiza ol 01fimo 
precio indicado. 
Medionte el presenfe programo, 
se evifa la manipulaci6n manual de 
fichas asi como la bOsquedo, vorio- 
ci6n y archivado de las fichas de ma- 
terial. La ventaio fundamentol es que 



todo nuestro orchivo se encuentra en 
un solo disco y que en 61, se efect0an 
todas las operaciones cl6sicas del 
manejo de almacn. Con nuestro 
programa, tenemos en todo momen- 
ta actualizada, toda la informaci6n, 
asi coma la posibilidad de inventa- 
riar en el acto, conociendo el valor 
de nuestro almacn puntualmente. 
Podremos controlar todos estos ele- 
mentos de una manera r6pida y sen- 
cilia; en todo momenta y a troves de 
la consola tendremos la informaci6n 
para poder acceder alas distintas 
opciones, y siempre se nos indica Io 
que debemos hacer para Ilevar a co- 
bo nuestros prop6sitos. 

ACCESO A MENU 
Y SUBMENUS 

El acceso alas opciones, est6 bao 
sado en sencillos men0s mediante los 
cuales has podremos mover a troves 
del mapa del programa. Tenemos en 
todo momenta: la libertad de des- 
cender a un submen0, activar una 
opci6n o regresar al men0 principal. 
El fichero del almacn est6 farina- 
do par fichas individuales de cada 
orticulo yen los cuales tenemos or- 
chivadas, la clave del articulo, su de- 
nominaci6n, los existencias, las exis- 
tencias minimas, el proveedor que 
has Io ha suministrado, el precio uni- 
tario y el valor total de coda articulo. 
Una vez cargado el programa nos 
aparecer6 en la pantalla el men0 
principal, 6ste consta de cinco opcio- 
nes a los cuales podemos dirigirnos 
con s61o pulsar el n0mero que ante- 
cede a coda opci6n. 
La opci6n primera es el acceso a 
los ficheros, es decir, a la creaci6n, 
aumento o borrado de las fichas de 
nuestro almac6n. 
La segunda opci6n nos traslada a 
la parte m6s importante del prograo 
maya que con 6sta ser6 con la que 
m6s trabajemos pues tenemos en 
nuestras manos las entradas y salidas 
del material, las consultas de las fi- 
chas y las modificaciones de las mis- 
mas. 
Con Io op¢i6n tres posamos o po- 
der listor fanfo en pantallo coma en 
impresoro los fichos de maferiales asi 
coma las fichas del material que se 
encuenfre bojo minimos. 
Con la op¢i6n cuafro tenemos Io 
posibilidod de inventoriar el alma- 
cn. Tendremos la opci6n de la pon- 
tallo o la impresora. 
La Oltimo opci6n es Io m6s obvia 
yo que Onicamente sirve para aban- 
donor el progroma. 

Todas estas opciones del men0 
principal conducen a unos submen0s 
de los cuales no hace falta explicar 
nada ya que directamente conducen 
a operaciones con las fichas. 
En todo momenta se nos indicar6 
en la pantalla del monitor yen la 
parte posterior d6nde nos encontra- 
mos y en la parte inferior se nos dice 
qu6 debemos hater para seguir ade- 
lante. Todos los submen0s tienen una 
Oltima opci6n que es la de volver al 
meng principal. 

AMSTOCK-W 
Y LA IMPRESORA 

Cuando entremos en el capitulo de 
los listados hay que tener en cuenta 
que el programa est6 preparado pa- 
ra trabajar con hojas sueltas, es de- 
cir, con papel DIN-A4, par tanto an- 
tes de acceder al listado hay que ali- 
mentor la impresora. 
Para alimentar la impresora baso 
ta con centrar el papel y dejarle que 
descanse sabre el rodillo, una vez 
hecho esto se desplaza hacia delan- 
te la palanca que se encuentra al lao 
do del mando del rodillo. El papel se 
introducir solo, en este momenta reo 
gresamos la palanca a su posici6n y 
pulsamos en el z6calo del ordenador 
la tecla <SAL>. Una vez alimentada 
la impresora escogeremos la opci6n 

de listar que has interese y 6sta se 
ejecutar6 expulsando al terminar la 
hoja aunque sta no hubiera sido im- 
presa en su totalidod. 
A la hora de listar el material se ha 
optado par disminuir el tipo de letra 
con el objeto de poder disponer en 
un solo listado de todos los elemen- 
tos que componen el almac6n. 

ULTIMOS CONSEJOS 

Cuando terminemos el trabajo es 
recomendable inventariar el almao 
c6n ya que a la vez de evitarnos dis- 
gustos de fallos en los discos has pro- 
porcionar tanto a los operadores 
del programa coma a los distintos 
departamentos de la empresa los da- 
tos de situaci6n del almac6n. Hay 
que hacer notar que con los datos 
del almac6n trabajan los departa- 
mentos de Contabilidad, Comercial, 
Administraci6n, Producci6n y Gereno 
cia. 

DEFINICION D VARIABLE 

-T  cS 
soNS 
CLRS 
CLAVES 
DENOMINACIONS 
PROVEEDORS 
CANTIDADS 
EXIMIN$ 
PRECUNIS 
PRECTOS 
oPcS 
DENS 
PRoS 
UDS 
EX.MIN 
PT.UNI 
CLAVE 
xYAB 
CANTIDADE 
PRECUNIE 
CANTIDADS 
CLAVEN 
DENOMINACIONNS 
PROVEEDORNS 
EXISMINN 

C6cligo cle ontrol poro escapes. 
Procluce el piticlo. 
Borrado cle pontallo Y cursor al origen. 
Clave clel articu o para clefinir el tampa. 
Nombre clel articulo pora def nit el tampa. 
Nombre del proveedor para definir el tampa. 
Unidacles clel orticulo para clefinir el tampa. 
Existencios minimas paro definir el campo. 
Predo unitario clel articulo pora definir el tampa. 
Precio total paro definir el campo. 
Eval0a la teda pulsada en los men0s. 
Nombre del articulo. 
Nombre del proveedor. 
Unidodes. 
Existencias minimos. 
Precio unitorio. 
Clove del articulo. 
Variables para contadores. 
Uniclades cle entracla cle material. 
Precio unitario cle enlracla cle material. 
Unidodes de salida de material. 
Nueva clove en modificaciones. 
Nueva clenominaci6n en modificaciones. 
Nuevo proveedor en modificaciones. 
Nuevos existencias minimas en modi ficaci°nes'. 

4IC#OHOBBY AMSTRAD 27 



Normalmente nos ser6 imposible 
recordar todos los c6digos o claves 
de los materiales del almacn, por Io 
que recomendamos antes de empe- 
zar a trabajar sacar un listado de 
materiales con Io cual tendremos im- 
presos estos datos. Si sabemos la cla- 
ve pero tenemos dudas podemos evi- 
tarnos el listar ya que podemos con- 
sultar con la opci6n tres del segun- 
do submeng correspondiente al man- 
tenimiento de fichero del men0 prin- 
cipal. 
Una 01tima advertencia para el 
manejo del programa, como hemos 
indicado anteriormente, nunca os 
encontraris solos en una pantalla sin 
saber qu6 hacer ya que siempre se 
da una opci6n para seguir el progra- 
ma. Limitaros pot tanto a seguir es- 
tas instrucciones. 
En cuanto a la estructuraci6n del 
programa ya hemos indicado que se 
basa en men0s, por Io tanto el segui- 
miento del mismo es f6cil gracias a 
las sentencias ON GOTO, que nos 
indican siempre a d6nde nos dirigi- 
mos. 
Cuando nos dispongamos a traba- 
jar con este programa hay que tener 
en cuenta las caracteristicas propias 
del ordenador, que como sabemos 
dispone de siete lenguajes. Cuando 
el ordenador se pone en funciona- 
miento se adopta implicitamente el 
siete que es el espaol pero tiene la 
desventaja de perder ciertos carac- 
teres del ASCII b6sico, por tanto se 
recomienda reinicializar el ordena- 
dor, cargar del CPM, cuando nos pi- 
da la primera sentencia le contesta- 
mos Language 0. 
Y seguidamente le indicamos que 
cargue el Basic. Hecho esto ya po- 
demos empezar a copiar o introdu- 
cir el disco con el programa. 
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100-210 
230-370 
380-600 
610-880 
890-980 
;90-1140 

ESTRUCTURA 
0-80 Preparaci6n de vari'ables 
de control y definici6n de 
funciones. 
Presentaci6n men0 
principal. 
Presentaci6n primer 
submen0. 
Creaci6n inicial de fichero. 
Aumentar fichas 
fichero. 
Borrar fichas. 
Presentaci6n de[ segundo 
submen0. 
150-1300 Presentaci6n del tercer 
submen0. 
i 310-1500 Entrada de material. 
1510-1710 Salida de material. 
1720-2030 Consultas de fichas. 
2040-2170 Presentaci6n de submen0 
para modificaciones. 
2150-2320 Modificaci6n de la clave. 
2330-24.80 Modificaci6n y 
denominaci6n del artkulo. 
2490-2640 Modificaci6n nombre de 
pr0veedor. 
2650-2800 Modificaci6n de las 
existencias minimas. 
2810-3130 Listado de material por 
pantalla. 
3140-3280 Listado de minim0s por 
pantalla. 
3290-3590 Listado de material por 
impresora. 
3600-3750 Listado de minimos por 
impresora. 
3760-4140 Inventario. 
4150-5140 Listado de[ inventariado 
por impresora. 

Unicamente hemos observado con 
este mtodo una diferencia yes la de 
que al listar por impresora el c6digo 
Barrado (I) es sustituido por el sim- 
bolo de pesetas. Para generarlo bas- 
ta pulsar EXTRA+4. 
Las opciones m6s delicadas del 
programa son aqullas con las que 
destruimos informaci6n como son la 
opci6n de borrar fichas o la de mo- 
dificarlas, el programa obedece la 
instrucci6n pero no la confirma, por 
tanto tener cuidado y asegurar bien 
los datos cuando manejis estas op- 
clones. 
Una curiosidad es la de observar 
c6mo se actualizan las fichas, podis 
hacer una prueba con las opciones 
de entrada o salida de material y lue- 
go con la instrucci6n de consulta Ila- 
m6is a la ficha y observ6is c6mo las 
cantidades, existencias y precios se 
han modificado de acuerdo con las 
operaciones que habis efectuado. 

REM ::K;¢ creation inlcial .'- 
PRINT 
PRINT TAE(60)"c, pcion ] del subm 
INF'UT"denoinacion ", dens 
IF denS-"" THEN 230 
INPUT" proveedor ", pros 
INPUT "cantidad ",uds 
INPUT"existencias mnims ",ex, 

370 
0 
380 
390 
40Q 
410 
el'ILl 
420 
430 
440 
450 
460 
mill 
47( INPUT "precio unitario ",pt,uni 
480 OPEN"R" , 1 , "base" 
491 FIELO ] ,2 AS clave$,20 AS denom 
1nationS,20 AS proveedor$, 2 AS can 
tidad$,2 AS e:ir)in$,4 AS precun,4 
AS prect.o$ 
SO0 RSET c lave$-MKI$[ c lave) 
5'20 L'ET proveedor$=pro$ 
530 RSET caHtidad$=NKI$(uds) 
$40 R'3ET e:.imin$-MKI$(e.minl 



$50 RSET precuni$=MKS$pt,ull) 
561 RSET precto$=MKS$(pt, 
$70 PUT 1,clave 
$80 PUT 1 , 
£90 CLO:E 
600 clave=clave+ ',GOO 400 
610 REM :l::& auraentar f ichas .:' 
623 PRINT clr$ 
630 OPEN"R", 1 

e,41 FIELD 1 ,2 AP. clave$,20 Ax: dehorn 
Inac ion$, 20 AS provedor$, 2 AS can 
ti,flad$,2 AS o×irnin$,4 AS precuni$,4 
AS prec t,.,$ 
650 GET 1, 
663 clve=CVI(rlv$:ctve lave+'l 
670 CL09,E 
e,£1.J PR]N] clr$ 
690 F'R]N] TAB(6D)"opcion 2 det ubn 
703 INPUT"denomnacion ", dens 
7]0 IF dn$="" THEN 230 
723 INF'UT"proveedor ",pros 
7:?,0 INF'UT "cat. ldad 
74U INF'U]",xist.ncias minimas ",ex, 
750 
760 

INF'UT "precio unltarlo ",pt,uni 
OPEN"R", 1 , "base" 
770 FIELD 1,2 AS clave$,20 AS dehorn 
.ilnaCir, n$,20 AS prc, ve,dor$, 2 AS can 
tidad$,2 AS e<mn$,4 AS prcuni$,4 
A prec t.o$ 
780 RSET c lave$-MKI$ c lave) 
70 LSET denomlnacionS=denS 
8() LSET proveedor$=pro$ 
80 RSET clltidad$-MKI$(uds) 
820 R:ET exinin$=MKI$(e,mln) 
850 RSET prcuni$=MK.S$(pt,ui) 
850 PUT 1,clave 
850 PU] 1,999 
870 CLOSE 
880 clave=c lave+1 GOTO 
890 REM 'f.i; borrar ;ichas 
900 PRINT clr$',PRINT FAB('O)"opcion 
3 del submenu I " 
910 PRINT FNlocate$(2S 12, "clave de 
la ficha ");INPUT clave 
920 OPEN"R", l , "base" 
930 FIELD 1,2 AS clave$,20 AS denom 
1nationS,20 AS proveedor$, 2 AS can 
t,da,d$,2 AS e*:ndn$,4 AS precun$,4 
940 GET l,clav 
9S0 LSET denom inacion$-"":LSET p#ov 
eedor$=""RSET cantidad$=MP.[$(O)', 
ET eximin$=MKI$(O);RSET preeuni$=MK 
S$r0) ;RSET 
960 PUT I ,¢lave 
#70 CLOSE 
£80 GOTO 230 
990 REM : aanenimiento ficheros 
:.: 
10)0 PRINT 
1010 PRINT TAB{60)"opcion 2 del men 
u principal 
1020 PRINT FNIocate$33,S"MANTENIM 
IENTO FICHFROS"): PRINT FNlocat.e$(3 
3, .,  ....................... " ) 
] 030 PR I NT FN 1 oc  te$ ( 3', 8 ".f::.:i. ' 
I(,40 PRINT FNlocat.e$(30,9" I - en 
t.rda n,atcrlal ") 
lOSO PRINT FNlncat.$c30, lO,"* 2 - s 
a I ida mater ia] ."  
I60 PRINT FNlc, cat.e$(30,l ] ," 3 - c 
vnsu I tas ." ) 
]70 PRINT FNlocate$(30,]2,": 4 - r 
od'Lf irac ione " ) 
]A80 PRINT FNlocate$(30,13,": S - v 
olvr enu principal 
) 090 PR I NT FN 1 oc a te$ ( 30, ) 4, "::: 
.:&::::'f :f:'::.: ::::" } 
]100 PRINT FNlocte$(50,27,"pulse 
a option deseada (I-S)") 
]]]r) opts INKEY$; IF opc$="" THEN 
) 0 
ZO IF VAL(opc$)<] OR VAL(opc$)>S 
HEN F'RINT FNlocat.e$(50,27,sonS) EL 
SE ) ) 40 
1130 GOTO 1 1 10 

1140 ON VAL(opc$ GOTO 1310, 1510,17 
21:), 21)40,80 
l IAO REM  listados 
1160 PRINT clr$ 
l l/O PRINT TAB(60)"opclon 3 del men 
u principal" 
11:0 PRINT FNIocate$(:38,S,"LISTADOS 
")',PRINT FNlocate$(38,G, " .......... ) 
l lqO PRINT FNlocat.e$(2S,8, 
.::::: :::; : ':: :    "  
]'200 PRINT FNlocate$(25 9,"* ] - li 
sta,do material pantalla :") 
1210 PRINT FNlocate$(2S lO,": 2 - 1 
-istedo minirnos pant.alia :") 
220 PRINT FNloc#te$(25 ],": 3 - 1 
ist.ado mat.erial ipreora :") 
2:30 PRINT FNlocate$(2S 2,"* 4 - 1 
istdo minmc, s impresora *") 
240 PRINT FNlocate$25 3,"* S - v 
olver menu principal :") 
]'2.h0 PRINT FNlocate$25 ]4,"::::: 
:::::::f:::f:::: . :¢.f:.f:: :::: :'t :" ) 
]'260 PRINI FNlocat.e$(SO,27,"pulse 
a option deseada .1-5)") 
2/0 opc$ INKEY$; IF optS-"" THEN 
270 
280 IF VAL.opc$)< OR VAL(opc$)> 
THEN PRINT FNlocate$(SO,27,son$) EL 
SE l 300 
120 (OTO 1270 
1300 ON VAL(opc$) GQTO 2810,314D,32 
90,3600,80 
]:310 REM :': entrada ,de materal ** 
1320 PRINT clr$ 
1330 PRINT FNlocate$(25,12,"clav d 
#1 mat.#rial ; ");;INPUT clave 
1:340 OPEN"R", 1 , "base" 
13SO FIELD 1,2 AS craveS,20 A£ deno 
nnacion$,20 AS proveedor$, 2 AS ca 
ntidad$,2 AS exiin$,4 AS precuni$, 
4 AS precto$ 
1360 GET ], clave 
1370 PRINT c]r$ 
1380 PRINT FNlocate$(2S,lO,"cantida 
d ,de1 nateral  "), tlNPUT cantid,d 
e 
1393 PRINT FNlocat.e$(2S,11 ,"precio 
unitario ; "); ; INPUT precunie 
1400 cantidada=CVI(cantidad$);RSET 
c an t i dad$=MK I  ( c an t i dada+c an t i dade 
14]0 RSET precuni$=MKS$(precunie) 
1420 prectoa=CVS(prect.o$);RSET prec 
t.o$=MKS$ ( p re cun i e ( c an  i dada+c an t i d 
1430 PUT 1 ,clave 
144D CLOSE 
1450 PRINT clr$ 
140 PRINT FNlocate$(1S,lO,"el nate 
rill ha sido contabilizado y archly 
ado la flcha correspondiente") 
147D PRINT FNlocate$(SO,27,"hay mas 
ent.radas de aterial 
1480 a$-INKEY', IF aS ..... THEN 1480 
IS00 IF a$="s" OR a$-"S" THEN 1310 
ELSE 990 
1$10 REM **: salida de aterial *:* 
1520 PRINT clr$ 
1:30 PRINT FNlocate$(2S,12'clave d 
el material ; ");tINPUT clave 
1S40 OPEN"R", 1 , "base" 
l£SO FIELD 1 ,2 AS clave$,20 AS deno 
mi3acion$,20 A$ proveedor$, 2 AS ca 
ntidad$,2 AS exiin$,4 AS precuni$, 
4 A£ precto$ 
]560 GET l, clave 
ISTO PRINT clr$ 
180 PRINT FNlocate$(2S, lO,"cantida 
d ,del material ; "), ;INPUT cant. idad 
16(30 cant. ida,db=CVI¢cantidad$)tRSET 
cant-i,dad$=KI$(cantidadb-cantidads 
]610 REM RSET precuni$=MKI$(precuni 
s) 
620 REM prectob CVI(precto$);RSET 
prestos MKI$(prectob-prectos:cantid 
16:0 precunis CVS(precunz$);RE]- pr 
ecuni$-MKS$(prcuns);RSET precto$ 
M KS$ ( pre cun i s:¢' ( c an t.i dadb- c an t I dads ) 
) 

1640 PUT 1,clave 
165(3 CLOSE 
1660 PRINT clr$ 
1670 PRINT FNlocate$(1S, 10, "el mate 
fiat ha sido cont.abilizado y archv 
ado la ficha correspondiente") 
1680 PRINT FNlocate$(SO,27,"hay mas 
entradas de material (s/n)") 
1690 a$=INKEY$: IF aS= .... THEN 1480 
1710 IF a$="s" OR a$-"S" THEN lSlO 
ELSE 990 
1720 REM : consulta de ficheros 
1730 PRINT clr$ 
1740 PRINT FNlocate$(30,O,"nuero 
de ficha a consultar");;INPUT clave 
1760 OPEN"R",I,"base" 
17713 FIELD 1 ,2 AS clave$,20 AS deno 
inacion$,20 AS proveedor$, 2 AS ca 
ntidad$,2 AS exiin$,4 AS precun$, 
4 AS precto$ 
1780 GET l,clave 
1790 clave=CVI(clave$) cantidad=CV 
I(cant.dad$); exi=CVI(e×iin$)', pre 
cuni-CV$(precuni$),, precto=CVS(prec 
to$ ) 
1800 PRINT clr$ 
1810 CLOSE 
1820 PRINT TAB(IO)STRINGS(74,"") 
1830 PRINT TAB(]O) 
,, )  ".,, 
1840 PRINT TAB(IO)" ficha numero 
";clave;" 
1850 PRINT TABtIO)"";$TRING$1.72, 
1860 PRINT TAB(IO)"I¢ denominacon " 
; denon)i nac ionS; " " ; "proveedor 
" ; proveedor $ ; TAB( 83 ) "" 
1870 PRINT TAB(IO) "'';STRING$(72, " 
1880 PRINT TAS(IO) " ";STRINGS(70 
-,, ) ; " ,, 
1890 PRINT TAB(10)":";STRING$1.72," 
13130 PRINT TAS(10)" unidades 
prec io unitario 
precio total " 
1910 PRINT TAB(]O)"":STRING$(72, " 
19213 PR I NT TAB ( 10 ) ":i " ; STR 1N85 
_. ) ; "  ,, 
19313 PRINT TAS(lO)":";STRING$(72, 
1950 PRINT'TAB(IO)"*";TAB(IS)cantid 
ad; TAB(SO)precuni ; TAS(70)prect.o: TA8 
( 83 ) ":" 
1960 PRINT TAB(iO)"*";STRING$ 
1970 PRINT TAB(IO)"*";STRIN65(72, " 
1980 PRINT TAB(IO)"*"ITAB(SS)"exist 
encias minimas";exi;TA8(83)"" 
1990 PRINT TAB(IO) "'';STRING$(72, 
2000 PRINT TAB(10)STRING$(74,"*" 
2010 PRINT FNlocate$(50,27,"pulsa u 
na tecla para seguir") 
2020 $=INKEY$;IF aS "" THEN 2020 
2030 GOTO lO00 
2040 REM  nodifcaciones :k 
2050 PRINT clr$ 
2060 PRINT TAB(60)"opcion 4 del sub 
2070 PRINT FNlocate$(2S,8, 
2080 PRINT FNlocate$(25,9,"* 1 - mo 
dificacion clave 
2090 PRINT FNlocate$(25,10,": 2 - 
odificacion denominacion 
) 
2100 PRINT FNlocate$(2S,ll," 3 - 
,odificacion proveedor " 
) 
2110 PRINT FNlocate$(25, 12," 4 - 
odificacion e×istencias minimas " 
) 
2120 PRINT FNlocate$(25,13," 5 - v 
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olver submenw 
) 
21:30 PRINT FNlocate$(26,14,"::: 
) 
2140 PRINT FNlocate$(60,27,"pulse 1 
a opcion deseada (l-S)") 
2180 opc$=INKEY$: IF op¢$="" THEN 2 
I SO 
2160 IF VAL(opc$)<I OR VAL(opc$)>S 
THEN PRINT FNlocate$(SO27,sonS): 
OTO 21SO 
2170 ON VAL(opc$ GOTO 21802330,24 
90,2660 990 
2180 REM i nodificacion clave 
290 PRINT ci.r$ 
2200 PRINT FNlocate$(25,12,"clve d 
el material ") :INPUT clave 
22]0 PRINT FNlocate$(2S,13,'nueva c 
lve "); :INPUT claven 
2220 PRINT clr$ 
2230 OPEN"R",,"base" 
2240 FIELD 1,2 AS clave$,20 AS deno 
minacion$,20 AS proveedor$, 2 AS ca 
ntidad$2 AS eximin$,4 AS precuni$, 
4 AS precto$,S4 
2250 GET ] ,clave 
2260 PUT  ,claven 
2270 CLOSE 
2280 PRINT clr$ 
ral ha sido contabilizado y archly 
ado la f icha correspondiente") 
2300 PRINT FNlocate$SO,27,"hy 
entradas de material (s/n)") 
230 aS INKEY$,, IF aS= .... THEN 
2320 IF $ "s" OR $="S" THEN 280 
ELSE 2040 
2330 REM  modificcion denoinac 
ion 
2340 PRINT clr$ 
2350 PRINT FNlocate$(2S,]2,"clave d 
el mterial "); : INPUT clave 
2360 PRINT FNlocate$(2S,]3,"nueva d 
enominacion "); INPUT denominacionn 
$ 
2370 PRINT cir$ 
2380 OPEN"R", ],"base" 
2390 FIELD 1,2 AS clav$,20 AS deno 
minaclon$,20 AS proveedor$, 2 AS 
ntidad$,2 AS eximin$,4 AS precuni$, 
4 AS precto$,S4 
2400 GET 1 ,clave 
2410 LSET denominacion$=denominacio 
nn$ 
2420 PU 1,clave 
2430 CLOSE 
2440 PRINT clr$ 
460 PRINT FNlocate$(IS,]O,"el mate 
rial ha sido contabilzado y archly 
ado la ficha correspondiente') 
2460. PRINT FNlocate$(50,27,"hay 
entradas de material (s/n)') 
2470 a$==INKEY$ IF aS= .... THEN 2470 
7480 IF a$-"s" OR $-"S" THEN 2330 
ELSE 2040 
40 REM : modification proveedor 
:::: 
2500 PRINT clr$ 
'S]0 PRINT FNlocate$(2S,12,'clve d 
el material "), ; INPUT clave 
2620 PRINT FNlocate$(25,13,"nuevo p 
roveedor "), INPUT proveedorn$ 
2530 PRINT 
2540 OPEN"R",  ,"base" 
2560 FIELO ],2 AS clave$,20 A dno 
minacion$,20 AS proveedor$, 2 AS 
ntidad$,2 AS eximin$,4 AS precuni$, 
4 AS precto$ 
2560 GET ],clave 
2670 LSET proveedor$-proveedorn$ 
2580 PUT ] ,clave 
2690 CLOSE 
2600 PRINT clr$ 
26]0 PRINT FNlocate$(]S,IO,"el 
rial ha sido contabilizado y achiv 
ado la ficha correpondint") 
2620 PRINT FNlocate$(SO,27,'hay 
ntradas de materil (s/n)') 

2630 a$-INKEY$: IF aS="" THEN 2630 3100 NEXT 
2640 IF aS "s" OR a$-"S" THEN 2490 3110 PRINT FNlocate$(SO,27,'pulsa  
ELSE 2040 na tecla para cbntinuar') 
2650 REM li modification existenci 3]20 opcion$-INKEY$:IF optionS= .... T 
as minimas  HEN 3120 
2660 PRINT clr$ 3130 CLOSEGOTO 1160 
2670 PRINT FNlocate$(26,12,'clave d 3140 REM ii listado minmos pot pa 
-el "teril-"),:NPUT-¢lv ...... ntalla  

2680 PRINT FNlocate$(25,I3,"nuva 
existencias minimas "),:INPUT eximi 
690 PRINT clr$ 
2700 OPEN"R',],"base" 
2710 FIELD 1,2 AS clave$,20 AS deno 
minacion$,20 AS proveedor$, 2 AS ca 
ntdad$,2 AS e×imin$,4 AS precuni$, 
4 AS precto$ 
2720 GET ],clave 
2730 RSET eximin$=MKI$(e×iminn) 
2740 PUT 1,clave 
2760 CLOSE 
270 PRINT clr$ 
2770 PRINT FNlocate$(16,10,"el ate 
.rial ha sido contabilizado y archiv 
ado la ficha correspondiente") 
2780 PRINT FNlocate$(SO,27,"hay 
modficaciones s/n)") 
2790 a$-INKEY$ IF aS="" THEN 2630 
2800 IF aS "s" OR a$='S" THEN 2650 
ELSE 2040 
28]0 REM :: lstado material por p 
antalla :: 
2820 PRINT clr$ 
2830 OPEN"R",l,"base" 
2840 FIELO 1,2 AS clave$,20 AS deno 
minacion$,20 AS proveedor$, 2 AS ca 
ntidad$,2 AS e×imin$,4 AS precuni$, 
4 AS precto$ 
2850 GET 1,999clave-CVI(clave$)a= 
22;b-I 
2860 IF clave<a THEN 3020 
2870 PRINT "c lave" ; TAB (10)"denomin 
ac ion" ; TAB(30)"proveedor" ; TAB(St )"c 
antidad" ;TAB(61 )"exi/min" ; TAB(70)"p 
rec/uni";TAB(80)"prec/total" 
2880 PRINT STRINGS(90,"-") 
2890 FOR y=b TO a 
2900 clave=clave-] 
2910 GET 
2920 clave1-CVI(clave$)PRINT USING 
""; clavel; 
29:30 PRINT TAB(8)denominacion$;TAB( 
29)proveedor$; 
2940 cantdad=CVI(cantidad$)PRINT 
TA8(63) USING "&";cantidad;:exi 
min=CVI(eximin$):PRINT TAB 
NG""; eximin; 
2960 precun-CVS(precun$):PRINT TA 
B(69) USING"";precuni;:prec 
to=CVS(precto$):PRINT TAB (79)USING 
"";precto 
2960 NEXT y 
2970 PRINT FNlocate$(SO,27,"pulsa u 
na tecla para continuar") 
2980 options INKEY$;IF op¢on$-"" T 
HEN 2980 
2990 IF clave=O THEN 3010 
3000 PRINT clr$b=b+22IF clave<22 
THEN a-clave+22 GOTO 2870 
3010 CLOSEiGOTO lI60 
8020 PRINT "clave ":TAB (I0) "denon 
ac ion" I TAe(30)"pr oveedor" : TAB(SI )"c 
antidad':TAB(Sl )"exi/min":TAB(70)"p 
"eC ?uh i 'TAB-( 80 )"p,ecTtotal" - "" 
302l PRINT STRING$(90,"-'C) 
3022 FOR ×-l TO clave 
3023 GET 1,× 
3060 clave-CVI(clave$):PRINT USING 
"";clave: 
3070 PRINT TAB(8)denominacion$;TA8( 
29)proveedor$; 
3080 cantidad=CVIKcantidad$):PRINT 
TAB(S3) USING "h";cantidad; ;exi 
n',in-CVI(e×imin$):PRIT TA-B--(SI) USI 
NG"": exmin; 
3090 precuni-CVS(precuni$):PRINT TA 
B(69) USING"&&".:precuni:prec 
to CVS(precto$):PRINT TAB (79)USING 
'h';precto 

3150 PRINT clr$ 
3]60 OPEN"R",I,"base" 
3170 FIELD 1,2 AS clave$,20 AS deno 
minacion$,20 AS proveedor$, 2 AS ca 
ntidad$,2 AS exmin$,4 AS precudi$, 
4 AS precto$ 
3180 GET 1,999:clave-CVI(clave$) 
3190 PRINT "clave":TAB(IO)"denomina 
c i on" ; TAB ( 36 )" pr oveedor" ; TAB( 58 )" c a 
nti dad" : TAB( 70 )"exi/m  n" 
3200 PRINT STRINGS(90,'-") 
3210 FOR x=l TO clave 
3220 GET 1,x 
3230 clave CVI(clave$):cantidad=CVI 
(cantidad$):eximin=CVI(eximin$) 
3240 IF cantidad<eximin THEN PRINT 
clave;TAE(10)denominacon$TAB(3S)p 
roveedor$;:PRINT TAB(60) USING "&&& 
h';cantidad::PRINT TAB(70) USIN6 
"&";e×imin 
3260 NEXT 
3260 PRINT FNlocate$SO,27,"pulsa u 
na tecla para continuar") 
3270 opcion$=INKEY$:IF optionS= .... T 
HEN 3270 
3280 CLOSE:GOTO 1160 
3290 REM  listado naterial pot i 
mpresora 
3300 PRINT cir$ 
3810 OPEN"R",l,"base" 
3320 FIELD 1,2 AS clave$,20 AS deno 
migrationS,20 AS proveedor$, 2 AS ca 
ntidad$,2 AS e×imin$,4 AS precun$, 
4 AS precto$ 
3330 GET ],999:clave-CVI(clave$):a= 
I00:b=I 
3340 LPRINT CHR$(I6) 
3350 LPRINT TAB(IO)"clave";TAB(2S)" 
denominac ion" ; TAB(SS)"proveedor" ; TA 
8 (76)"cantidad";TAB(gS)"e×i/min';T 
AB(106)"prec/uni";TAB (llS)"prec/to, 
tal" 
• I} LPR-INT-Sq'RINb(130,"--; --- 
3370 IF clave<a THEN 3500 
3380 FOR y-b TO a 
.3390 clave clave-1 
3400 GET l,y 
34]0 clave1=CVI(clave$):LPRINT TAB( 
5) USING"';clavel;TAB(20)denon 
acion$;TAB(50)proveedor$; 
3420 cantidad CVIKcantdad$)LPRINT 
TAB(75) USING 
ximin-CVI(eximin$)iLPRINT TAB(gS) U 
SING"&&"; eximin; 
3430 precuni=CVS(precuni$)LPRINT T 
AB(IOS) USING"h";precuni;prec 
to=CVS(precto$);LPRINT TAB(115) 
NG"";precto 
3440 NEXT y 
3450 PRINT FNlocate$(SO,27,'pulsa u 
na tecla para continuar") 
3460 opcion$=INKEY$;IF options "" T 
HEN 3460 
3470 IF clave 0 THEN 3380 
3480 PRINT clr$;b=b+1OO;IF clave<t0 
0 THEN a-clave+t00 GOTO 3380 
3490 CLOSE;LPRINT CHR$(18);LPRINT C 
HR$(12);GOTO 1150 
3600 FOR ×=I TO clave 
3510 GET l,x 
3520 clave-CVI(clave$)ILPRINT TAB(6 
) USING ",";clave; 
3530 LPRINT TAS(20)denominacion$;TA 
B(50)proveedor$; 
3540 cantidad:CVI(cantidad$):LPRINT 
TAB(7S)USING ""cantidad::exl 
min=CVl(e×imin$);LPRINT TAS(gS) 
NG""; eximin; 
3550 precuni-CVS(pre{uni$)LPRINT T 
AB(IOS) USING"h";precuni;;pr 
ecto-CVS(precto$):LPRINT TAB(IIS) U 
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$I NG"f,f,r,t,f," ; prec to 
3560 NEXT 
3570 PRINT FN1ocate$(SO,27,"pulsa u 
na tecla para continuar") 
3.5.90 opc.ion$-INKEY$;IF optionS="" T 
HEN SO 
3590 CLOSE:LPRINT CHR$(IS);LPRINT C 
HR$(.I 2) : GOTO 1150 
36(h0 REM. :::t listado minimos pot in 
preora 
'.[10 PRINT clr$ 
6 (' LPRTNT "clave"; TAS(10)"denom 
nac ion" j TAS(6)"roveedor" ; TAB(S6) " 
c ant dad" ; TAB(G8)"e::i/. i n" 
3630 LPRINT STRINGS(80,'-") 
3640 OPEN"R",I,"base" 
350 FIELD I ,2 AS clave$,20 AB deno 
inacon$,20 AS proveedor$, 2 AS ca 
ntdd$,2 A eimin$,4 A prcuni$, 
4 AG precto$ 
3660 GET I ,999:r]ave=CVT(clave$) 
3G70 FOR x=1 TO clave 
680 GET 1,x 
:690 clave-CVI(clve$):cantdad=CV 
(cntidad$) .. ex nxi n=CV I (ex  min) 
3700 IF cantidadeimin THEN LPRINT 
c I ave  TAB( 8 ) denoni nac ions  TA( 30 )p 
";cantidad LPRINT TAB(G5) USING 
"f,,"  eximin 
3710 NEXT 
3720 LPRINT CHR$(12) 
3730 PRINT FNlocate$(50,27,"pulsa u 
na tecla para continuar') 
3740 opcion$=INKEY$'.IF optionS="" T 
HEN 3740 
3750 CLOEGOTO 1150 
370 REM  inventariado ' 
3770 PRINT clr$ 
3780 OPEN"R", I , "base" 
3790 FIELD 1,2 AS clave$,20 A deno 
minacion$,20 A proveedor$, 2 AS ca 
ntidad$,2 AS exnin$,4 AS precun$, 
4 AS precto$ 
3800 GET I ,999:clave=CVI(claveS):a- 
22 ', b-1 
3810 IF clave<a THEN 4000 
3820 PRINT"clave";TAB10)"denominac 
ion"  TAB (2)"unidades"  TAB( 42)"prec 
/un"  TAB(S2)"prec/total" 
3830 PRINT GTRING$(6S,"-") 
3840 FOR y=b TO a 
3850 c lave=c lave-1 
360 GET I ,y 
3870 clave1=CVI(clave$)'.PRINT USING 
3880 PRINT TAB(10)denominacion$ 
3890 cantdad=CVI(cant.idad$)PRINT 
TAB(35) USING "rr"jcantidad; 
3900 precuni CVG(precuni$'.PRINT TA 
to-CV(precto$):PRINT TAB(SO)USING" 
3910 inventario Invnt.aro+Fn'c(n 
920 NEXT y 
39:0 PRINT',PRINT TAB(32)"total" 
INT TAB(SO) USING "f,rr,"  invent 
ario 
3940 PRINT TAB32)" ................ 
............ " : inventar io=O 
3950 PRINT FNlocte$(50,29,"pulsa u 
na tecla para continuar") 
39.0 options INKEY$:IF optionS ='''' T 
HEN 39£0 
3970 IF clave-O THEN PRINT nventr 
io .. CLOSE  GOTO 70 
390 PRINT clr$:b b+22:IF clve<22 
THEN a-clave+22 :GOTO 3820 
990 CLOSE '. GOTO 70 
4000 PRINT"clve';TAB[10)"denominac 
 on" ; TAB ( 2 ) "un  dades"  TAB ( 42 ) "prec 
/uni"  TAB(S2)"prec/total" 
4005 PRINT STRING$(£5,"-") 
.4010 FOR =I TO clave 
030 GET I ,x 
040 clve-CVI(clave$)PRINT USING 
"" Lc lave ; 
4050 PRINT TAB(10)denomincion$ 
I060 cantidad-CVI(cantidad$)PRINT 

TAB(35) USING "ffr,rf"canticad 
4070 precun=CVS(precuni$)',PRINT TA 
B(4Q) IJSING"rr,,r,r,r," ;precuni  ;prec 
to=CV$fprecto$)',PRINT TAB(50)UING" 
4(80 inventario=inventario+precto 
00 NEXT 
£100 PRINT:RINT TAB(32)"tot.al" 
INT TAB(50) UIN6 "r,r,f,f,f,,"; invent 
a110 RINT TAB(:32)" ........  ....... 
.............. : inventario 0 
4120 PRINT FNlocate$(40,29,"pulsa ( 
i) para lst.ar o una tecla papa con 
t. inuar"  
1:30 o,con$ INKEY$:IF optionS="" T 
HEN 4130 
4135 IF opcion="i" OR opcon$='I" 
THEN CLOSE', GOTO 4 
4140 CLOSE:GTO 70 
4150 REM  litado inventario : 
4160 PRINT clr$ 
470 OPEN"R",I,"base" 
180 FIELO I ,2 AS clave$,20 A'3 deno 
minac ion$, 20 AS pr.:.veedor$, 2 A ca 
ntidad$,2 AS exnin$,4 AS precuni$, 
4 A precto$ 
410 GET I ,999'.clave=CVI(clave$)a= 
0 '. b-1 
4200 IF clave<a THEN 5000 
4210 LPRINT"clave"TAB(10)"denonna 
c ion" ; TAB(:32)"unidades" ; TAB (42)"pr e 
c/uni" ; TAB ( $2 ) "pr ec /tota i" 
4220 LPRINT STRING$(66,"-") 
4230 FOR y=b TO a 
4240 c lave=c lave-1 
4250 GET I ,y 
4260 clave1=CVI(clave$):PRINT USING 
4270 LPRINT TAB(10)denominacion$; 
4280 cantidad=CVI(cantidad$)LPRINT 
TAB(35) UING ",," ; cantidad; 
4290 precuni-CV(precuni$)'.LPRINT T 
c to=CVS(prec to$ 
4300 inventari 
4310 NEXT y 
4320 LPRINT,,LPRINT TABc:32)"total"; ', 
LPRINT TAB(SO) USING "rrhf"inv 
4:3:30 LF'RINT TAB(32 ................. 
............... . nvent..r o 
4340 PRINT FNiocate$(50,29,"pulsa u 
na tecla para continuar" 
4:350 opcion$=INKEY$:IF optionS="" T 
HEN 4350 
4:360 IF clave=O THEN PRINT inventar 
io CLOE  GOTO 70 
4370 b-b+60IF clave<60 THEN a=clav 
4380 CLOSE:LPRINT CHR$(12):GOTO 70 
5000 LPRINT"clave"TAB(10)"denomina 
c  on" ; TAB ( 32 ) "un i dades"  TAB ( 42 ) "p r e 
c/uni"  TAB(S2) "prec/total" 
S}05 LPRINT STRING$(G5, "- ") 
5010 FOR  I TO clave 
50:30 GET I,< 
$04C) clave=CVI(clave$):LPRINT UING 
"£," ; c lave; 
OSO LPRT 
5060 cantidad-CVI(:cantidad$)=LPRINT 
S070 precuni=CVS(precuni$)LPRINT T 
cto=CVS(precto$):[ PRINT TAB(SO)USIN 
G"r,t,,rr" ; prec to 
5080 inventario inventario+precto 
5090 NEXT 
5100 LPRINT:LPRINT TAB:32"total"; : 
LPRINT TAB(50) UING "rFfF" ; inv 
5110 LPRNT TAB(32)' ................ 
............. ": inventar io-O 
5120 PRINT FNlocate$(50,29,"pulsa o 
una tecla para continuar") 
5]:30 opcion$=INKEY$:IF optionS="" T 
HEN 5] 30 
El40 CLOSE:LPRINT CHR$.]2):GOTO 70 

I00.000 PESETAS 
CON AflCROHOBB Y 

AMSTRAD 

SEMANAL 

Porque pretendemos que AMSTRAD 
SEMANAL seo tambi6n vuestra revista, 
hemos abierto uno secci6n en la que se 
publicar6n los mejores programas origi- 
nales recibidos en nuestra redacci6n. Vo- 
sotros ser6is los encargados de realizar 
estas p6ginas, en las que podr6is apor- 
tar ideas y programas interesantes pa- 
ra otros lectores. 
Las condiciones son sencillas: 
-- Los programas se enviar6n a AMS- 
TIeD SEMANAL en una cinla de casset- 
te, sin prolecci6n en el software, de for- 
ma que sea posible obtener un listado de 
los mismos. 
-- Cada programa debe ir acompa- 
fiado de un texto explicativo en el cual 
se incluyan: 
-- Descripci6n general del programa. 

-- Tabla de subrutinas y variables uti- 
lizadas, explicando claramente la 

funci6n de cada una de elias. 
-- Instrucciones de manejo. 
-- Todos estos datos deber6n ir escri- 
tos a m6quina o con letra clara para ma- 
yor comprensi6n del programa. 
-- No se admitir6n programas que 
contengan caracteres de control, debi- 
do a que no son correctamente interpre- 
tados por las impresoras. 
-- En una sola cinta puede introducir- 
se m6s de un programa. 
-- Una vez publicado, AMSTRAD SE- 
MANAL abonar6 al autor del programa 
de 15.000 a 100.000 pesetas, en con- 
cepto de derechos de autor. 
-- Los autores de los programas selec- 
cionados para su publicaci6n, recibir6n 
una comunicaci6n escrita de ello en un 
plazo no superior a dos meses a partir 
de la fecha en que su programa Ilegue 
a nuestra redacci6n. 
-- AMSTRAD SEMANAL se reserva el 
derecho de publicaci6n o no del progra- 
ma. 
-- Todos los programas recibidos que- 
dar6n en poder de AMSTRAD SEMA- 
NAL. 
-- Los programas sospechosos de pla- 
gio ser6n eliminados inmediatamente. 

|ENVIANOS 
TU PROGRAMA! 
Adjuntando los siguientes datos: 
Nombre y apellidos, 
direcci6n y telfono. 
Indicando claramente en el sobre: 

AMSTRAD SEA4AtVAL 

a HOBBY PRESS, S. A. La Grania, 39 
Pol. Ind. Alcobendas (Madrid) 



ACERCA 

DEL PCW8. 

• • espu6s de dara 
nuestros lectores la exclusiva de la 
aparici6n del nuevo Amstrad, el 
Pew8512 tenemos un poco m6s de 
informaci6n que ofreceros. 
La nueva m6quina, recordemos, 
tiene 512 kbytes de RAM, e incorpo- 
ra una segunda unidad de disco de 
un Megabyte (todav/a no sabemos si 
formateado el disco o no). 
Del media mega de RAM, 364 K se 
dedican precisamente a RAMDISK, 
esto es, un disco virtual donde pueo 
den almacenarse y manipularse fi- 
cheros coma en los discos <morma- 
les, pero con una abismal diferen- 
cia de velocidad. 
El precio del PCWS12, seg0n una 
nota oficial de prensa de Indescomp, 
serd de 174.900 pesetas sin IVA. 
Los usuarios del PCW8256 pueden 
<trasladarse)) a la nueva m6quina 
mediante un kit que, siempre seg0n 
Indescomp, ya est6 disponible al pre- 
cio 47.500 ptas. (IVA incluido); se 
compone de los chips de memoria y 
de la segunda unidad de disco. 
Respecto al conflictivo asunto de 
u6 va a pasar con el PCW826, el 
irector comercial de Indescomp, Mi- 
guel Angel Esteban, manifest6 tex- 
tualmente: 

((El 8256 seg,ir6 sienclo la esfrella 
de nuestros ordenodores profeslo- 
nales, pero hay un sector de usuarios 
que busca un equipo (on mayor 
pa¢idad y el PCW85 i 2 es la respues. 
ta.)) 

I PEW8512 se ven- 
de ol pOblico con el rismo software 
de bose que el 8256, los decir: Ma- 
llard Basic, sistema operativo 
CPIM+ y DR Logo. 
La unidad de disco posee un Me- 
gabyte sin formatear, y proporciona 
720 Kbytes una vez formateada, en 
doble densidad. 
AI parecer, la memoria extra y las 
dos unidades de disco pueden con- 
seguir que el Locoscript examine or- 
togr6ficamente 25 p6ginas par minu- 
to. 
Igualmente, ser6 posible mantener 
en la memoria varios programas di- 
ferentes a la vez, pero desconoce- 
mos si ser6n capaces o no de ejecu- 
tarse concurrentemente. 
En Inglaterra, el nuevo 8512 esta- 
r6 en las tiendas par estas fechas, y 
su precio serg m6s o menos de 575 
#, unas 115.000 pesetas (IVA inclui- 
do). 

I'!'1 I  f'1 "t 
I 
11  I 

VIENDO 
AeA  O 
El aspecto educativo de la 
informtico coda vez tlene 
mayor importoncia; nodie 
dudo, hay en dia, que los 
ordenodores son una 
poderosa herromienta de 
aprendizaje. 
En Amstradideos tambiin Io 
sabemos, y pot eso 
presentomos un p..rogromo 
especialmente dedlcodo a los 
m6s pequeos para que sin 
esfuerzo, puedan oprender 
los secretos de los ndmeros. 
Lourdes /iec Arbus 

I programa ABACO 
es muy sencillo y est orientado pora el Ciclo 
Inicial. Su objetivo es representar n0meros de 
hasta 3 cifras mediante el baco; identifican- 
do cada cifra con el n0mero de bolas que in- 
dica. 

A C 0 tSt"IPEN 2:PRINTIPRINTIPRINT 
'ESTE PROGRAMA ESTA DESTINADO PARA 
CHAVA-LITOS DE PAVULOS Y CICLO 
3 PRINT|PRINT:PRINT "CONSISTE EN RE 
PRESENTAR LAS UNIDADES, --DECENAS Y 
CENTENAS MEDIANTE BOLAS EN EL ABAC 
ESCA)" 
6 PEN 2:LOCATE I24:PPINT "Pulsa un 
9 PEN :IOCATE 4,1:PRINT 'A B A 
12 PEN 3:LOATE 221:PRINT "NUMEO: 
14 FOR y=15 TO z STEP -I 
16 SOUND 1,500,50:F0 n=1 TO .IO00:N 
25 IF a$-"n' OR a$="N" THEN MODE I: 
INK O,:IHK 1,24:PEN IIBORDER I:END 
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,'o. po/IMIlo e$ un evo deso/o  
,.#igro, uno misi/ suicido, uno duro ,, 
,11o. re encontrord n.. rente  co 

,,Nos de oso/to 2,nes. morter,. 
,., bos de mono que empleord 
,, o su fuerzo y. ,I blico poro f : 
or lu ovonce e, iodo Hoc- o , 
ucha uha agilido , 
enlol del otoq • 
$ U,;, , :, .,, ,, 

ALLIGATA SOFTWARE 

PRODUCE Y 
DI STRIBUYE 

/" j 

.I::! , , 
P.° CASTELLANA, 179-l. ° - 28046 MADRID Tell, 442 4 33144 



.read' 
comun 

Con el objeto de fomentar las rela- 
clones entre los usuarios de AMSTRAD, 
MERCADO COMUN te ofrece sus p6gi- 
nas para publicar los pequeos anuncios 
que relacionados con el ordenador y su 
mundo se aiusten al formato indicado a 
continuaci6n. 
En MERCADO COMUN tienen cabida, 
anuncios de ventas, compras, clubs de 
usuarios de AMSTRAD, programadores, 
yen general cualquier clase de anuncio 
que pueda servir de utilidad a nuestros 
lectores. 
Envianos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
iABSTENERSE PIRATAS! 

Se intercambian juegos para el 
Amstrad CPC-464 con usuarios de 
Barcelona o provincia. Llamar de 
15,30a 17 ho de 21 a 22 hal 
Tel. 212 42 84. Preguntar por 
Iv6n. 

Cambio ordenador Arnstrad 
CPC-464 monitor color en perfecto 
estado, m6s 30 programas 
comerciales, por Amstrad 
CPC-664 monitor color pagando 
diferencia justa. LLamar al Tel. 
(93) 212 42 84 de Barcelona. 
Preguntar por Iv6n. (Llamar de 
21,30 a 22,00 h.). 
oeeoeeoeeeeeeeooe 

DeseaHa contactar con usuarios 
del Arnstrad CPC-6128, en C6diz 
y su provincia. Interesados escribir 
a: Silvia Rodriguez Fern6ndez. 
Avda. Ram6n de Carranza, 22 - 
P. 6. ° D. 11006 Ccdiz. Tel. 
28 72 80. 

Vendo impresora Centronics 
730-2, matricial, tracci6n y 
fricci6n, 80 --40 a doble 
anchura--, o 132 columnas --66 a 
doble anchura--, 80 caracteres 
por segundo. Regalo adem6s 500 
hojas de papel continuo y 3 cintas 
de recambio (originales). Con 
cable y conector para el Amstrad: 
33.000 ptas. Con conector 
est6ndar: 30.000 ptas. Interesados 
Ilamar al Tel. (91) 742 28 37, 
preferiblemente de 10 a 14 h. 
Claudio P6rez-Olea. C/Tel6maco, 
26. 28027 Madrid. 

00000000000000000 

Desaria contactar con 
usuarios/as de ordenadores en 
general y de cualquier zona del 
mundo. Jnteresados/as escribid a: 
Ram6n J. Puchades. C/ Fco. 
CJimenf, 6 - I. °. 46007 Valencia. 

00000000000000000 

Cambio juegos comerciales para 
Amstrad (en cinta) 
preferentemente con gente de 
Barcelona. Entre ellos est6n 
Exploding Fist, Combat Linx, 
Decathlon, copiones, etc. Alberto 
Adeva Ant6n. C/Eduardo Tod6, 
36 int. 5.°-1. a 08031 Barcelona. 
Tel. 427 08 32. 

Vendo Amstrad CPC-464, color. 
En perfecto estado, con manuales 
y los programas siguientes: 
-- Ensamblador y 
desensamblador Devpac de 
Amsoft. 
-- Battle for midway. 
-- Hunter killer. 
-- Roland in the caves. 
-- Combat lynx. 
Precio actual de todo, 111.000 
ptas. apr6x, y Io vendo por 
80.000 ptas. Llamar a partir de 
las 18,00 h. y preguntar por 
Mario. 

Desearia contactar con usuarios 
del Amstrad CPC-464. Jos Maria 
G6mez Vega. P.O.BOX-381. Pto. 
Santa Maria (Cddiz). 

Vendo curso Autodid6ctico de 
Basic Tomos I y II, con dos 
cassettes para pr6cticas cada uno. 
Los dos por 3.500 ptas. Juan Puig 
Arnau. C/ p.o Ram6n Vail, 44 - 
3.°-2. a. Navas (Barcelona). 
00000000000000000 

Desearia adquirir Amstrad de 
segunda mano. Interesados 
dirigirse a D. G. Leorza. C! Don 
Vela, 24 - 3. ° Izqda. 01009 
Vitoria (Alava). 

00000000000000000 

Intercambio toda clase de 
programas. Interesados dirigirse a 
Luis Garcia Cantabrana. C/ 
Argentina, 14 - 3. ° A. 01009 
Vitoria (Alava). 

MICRO DEALER 

Comandante Zorita, 
Tel. 233 07 35- 07 
MADRID 28020 

TODO EN: 
Joysticks 
Cables 
Monitores 
Diskettes 3" 
Cassettes turbo 
Unidades de disco 

Impresoras 
Interfaces 
Ampliaciones de memoria 
Teclados profesionales 
Cintas virgenes 
Diskette 51/4 DCDD 

CENTRO DE DISTRIBUCION ESPECIALIZADA EN AMSTRAD 

MAYORISTAS DE: PRECIOS DE OFERTA 
kmstrad Sinclair EN IMPRESORAS: 
Commodore Spectravideo 20% Dto. sobre PVP 
Star Newprint iilNFORMATEH 
Seikosa Dk'tronics 

iiBUSCAMOS DISTRIBUlDORES 
EN PROVINCIAS!! 

NOVEDAD 
Reserve su 
Amstrad PCW8256 
PVP 429.900 

PIDA LISTA DE PRECIOS 
INFORMATE EN MICRO DEALER: 
Tel. (94] 233 07 84 
(9'15) 23 30 35 
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C/ Duque de Sesto, 50. 28009 Madrid 
Tel.: (91) 275 96 16/274 53 80 
(Metro 
O'Donell o Goya) 

SOFTWARE: por cada programa GRATIS iil 

HYPER SPORTS ........................ 2.300 ptas. 
TORNADO LOW LEVEL ................. 1.950 ptas. 
EXPLODING FISTT ..................... 2.300 ptas. 
JUMP JET ............................. 2.495 ptas. 
ZORRO ................................ 2.600 ptas. 
SABREWULF .......................... 1.650 ptas. 
GHOSTBUSTERS ....................... 1.950 ptas. 
GYROSCOPE ........................... 2,300 ptas. 
HYGHWAY ENCOUNTER ................ 1.750 ptas. 
HIGHWAY ENCOUNTER DISCO .......... 3.300 ptas. 

BOLIGRAFO CON RELOJ DE CUARZO!! 

DYNAMITE DAN ....................... 2.100 ptas. 
RAID OVER MOSCOW .................. 2.300 ptas. 
THEY SOLD A MILLION ................. 2.500 ptas. 
FIGHTER PILOT ........................ 1.975 ptas. 
MASTER OF T. LAMP .................. :1.950 ptas. 
NIGHTSHADE .......................... 1.950 ptas. 
HACKER ............................... 1.950 ptas. 
SUPER TEST ........................... 2.300 ptas. 
MAPGAME ............................ 2.700 ptas. 
TONADO LOW LEVEL DISCO ............ 3.300 ptas. 

JOYSTICK QUICK SHOTT I1., 
QUICK SHOT V 
JOYSTICK .. 

TAPA METACRILATO PARA / 
TECLADO iil.900 ptas.[! ,/ 

IMPRESORA MARGARITA / 
ii49.900 ptas.!! 

2.595 ptas./ 
/UNIDAD DISK EI"I'E 5.25'/ 
ii45.900 ptas.!! 
(incluido controlador) 
/ 

PC-COMPATIBLE IBM 256 K 
MONITOR FOSFORO VERDE 
2 BOCAS DISKETTE 360 K 
SOLO ii243.900!! 

LAPIZ OPTICO / 
ii4.900 ptas.!! 

CASSETTE ESPECIAL / 
ORDENADOR 5.295 ptas, 

PRECIOS SUPER-EXCEPCIONALES PARA/ 
AMSTRAD CPC-472 Y CPC-6128 / 
iiLLAMANOS, TE ASOMBRARAS!! / 

IMPRESORAS 
ii20% DTO. SOBRE P.V.P.!! 

SINTETIZADOR DE VOZ / 
Y AMPLIFICADOR: 
/ 
7.900 ptas. 

MODULADO. TV / 
8,4('] ptas. 

INTERFACE DISCO 
5 1.4" 5.300 ptas. 

CINTA C-15 ESPECIAL 
ORDENADOR 85 ptas. 
DISKETTE 3" 990 ptas. 

UNIDAD DE DISCO 3" CON / 
CONTROLADOR: 49.900 ptas. 
/ 

Libros: 
Curso autodidctico Basic I ................. 2.525 ptas. 
Curso autodid&ctico Basic II ................. 2.525 ptas. 
Programando con Amstrad .................. 2.195 ptas. 
Juegos sensacionales Amstrad .............. 1.950 ptas. 
Hacia la Inteligencia Artific .................. 1.295 ptas. 
MQsica y sonidos con Amstrad .............. 995 ptas. 

Pedidos contra reembolso sin ningSn gasto de envo. Tels. (91) 275 96 16/274 53 80, o escribiendo a Micro-1. C/Duque de Sesto, 50. 28009 Madrid 
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SANTA ENGRACIA, 17 8010 M'-RID. Tel.: 447 34 10 



